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PRÉFACE 


Après avoir parcouru le manuel, vous n’avez qu'une seule 
envie, c'est de découvrir des vrais programmes fonction- 
nant sur l’'AMSTRAD. 

Nous vous proposons donc un recueil de programmes aux 
sujets aussi divers que possible. Vous y trouverez des jeux, 
des utilitaires ainsi que des programmes utilisant les capa- 
cités graphiques et sonores de l'AMSTRAD CPC 464. 

Dans ces pages, nous vous offrons notamment un grand 
jeu d'aventure, ‘’Le Manoir de Rochebrune’’ qui vous fera 
frémir comme aux temps des chevaliers. 

Vous trouverez également, dans ces programmes, des 
idées à prendre ét transposer dans Vos créations person- 
nelles futures. 


Tous les programmes que nous vous proposons devront 
être exécutés dans l'état initial de l'AMSTRAD, c'est-à-dire 
après avoir tapé : 


BORDER 1 

PAPER O 

PEN 1 

INK 1,24 

INK 0,1 

SPEED INK 20,20 
SYMBOL AFTER 1 
SPEED KEY 30,2 


DEMONSTRATION COULEUR 


Offre spéciale ! 4 programmes pour le prix d'un. En effet, 
ce programme contient quatre sous-programmes différents 
qui vous dévoileront les possibilités étonnantes de votre 
AMSTRAD. 


FENETRES COLOREES 

Dans la cassette de démonstration, il est question de fené- 
tres. Qu'est-ce qu'une fenêtre et comment l'utiliser ? Voilà 
ce que nous vous montrons dans ce petit programme. 


TABLEAU DES COULEURS 
Dresse l'inventaire des 27 couleurs <existant sur 
l'AMSTRAD. 


CONVERSATION FUTURISTE 

-“‘Zup, Pluit tut, Buili tut*’”, dit le martien. 

“Quick, bluzi flupe, Bilibulu, Biout bic, Splop, Tut **‘', 
répondit le neptunien. 


*!’Eh ! On vole à droite dans l’espace, eh ! Chauffard.”’ 
** ‘Eh ! Chauffard toi-même ! Y'a même pas de radar dans 
ta soucoupe””. 


Retrouvez nos deux héros dans le troisième sous- 
programme. 


CUBES COLORES 
Ce programme met en évidence les nuances que l’on peut 
obtenir avec les 27 couleurs, de façon originale. 


QUELQUES DETAILS TECHNIQUES 

70-110 Page de présentation 
120-190 Sélection du sous-programme 
200-300 Fenêtres colorées 

310-410 Tableau des couleurs 
420-500 Conversation. futuriste 
510-580 Cubes colorés 


10" EEE E COEUR 

20 #DEMONSTRATION COULEURY 

25 HO EOOEEEOEE EEE 

49 : 

où ‘ par SL & P Kerloch 
6C ‘ 


70 MODE O'BORDER Z'INK 1,18,6: INK 2,15:SPEED INK 20,20 PAPER 0,1 
HE C,0 

Bû PEN {'LOCATE 4,9:FRINT'DEMONSTRATION" :LOCATE 7,14:PRINT'COULE 
UR # 

90 PEN 2:FOR A=4 TO 16: LOCATE A,10:PRINT CHR$(204):NEXT A 

100 FOR A=7 T0 13:LOCATE A,{S:PRINT CHR$(208):NEXT À 

110 FOR A={ TO 4000:NEXT À 

120 MODE L'BORDER O:INK 1,15:PEN !INK O,0:PAPER 0 


0 <> 


130 PRINT:PRINT:FRINT'FENETRES COLOREES =} 4° 
140 PRINT:PRINT'TABLEAU DES COULEURS -} 2" 
159 FRINT:PRINT'CONVERSATION FUTURISTE => 3" 
160 PRINT:PRINT “CUBES COLORES -} 4" 


179 INEUT À 

169 CH À COSUE 200,310,420,510 
190 GOTO 129 

209 MODE 0 

2:5 FOR a=0 TC 8 

220 INK a,at{ 

239 NEXT a 


"De 


240 FOR a=0 TO 7 
250 WINDOW #a,ati,at10,atl,ati2 
269 PAPER #a,a 
279 CLS #a 
289 NEXT a 
290 FOR A=0 TO 2000 : NEXT A 
309 RETURN 
310 MODE 0 
320 FOR À=0 TO 27 
330 B=A 
340 IF RÈ15 THEN B=B-15 
350 INK B,A 
260 PEN R 
370 PRINT'COULEUR"A 
380 PRINT 
390 FOR C=1 TO SOC'NEXT C 
400 NEXT À 
410 RETURN 
420 MODE 0 
430 a=INTIRNO(1)#15)+#1 
440 PEN à 
450 B=INT(RND(1)#300)+1:C=INTIRND(1)#300)+1 :D=INT(IRND{1)*#300)+1 
460 SOUND 1,B,5,15 
470 COUND 2, 3,15 
460 SOUND 4,D,5,15 
490 PRINT CHR$(143): 
500 IF INKEY$<"" THEN RETURN ELSE 430 
610 MODE O:INE O,0: INK 1,1:INK 2,2:INK 3,11:INK 4,9:INK 5,21:INK 
b,22:INK 7,4:INK 8,B8:INK 9,17:INK 10,3:INK 11,6:INK 12,16:INK 1! 
3,19:INK 14,24:INK 15,25 
ü20 FOR À=0 TO 60 STEP 2: PLOT 100,A+100,1:DRAWR 60,0,1:NEXT A:F 
OR _ 0 TO 69 STEP 2: PLOT 160,B+100,2:DRAWR 25,25,2:NEXT R:FOR C= 
Q TO 25 STEF 2:PLOT 100+C,160+C,3:DRAWR 60,0,3 :NEXT C 
5930 FOR À=0 TO 460 STEP 2: PLOT 200,A+100,4:DRAWR 60,0, 
OR B=0 TO £0 STEP 2:PLOT 260,B+100,5:CRAWR 25,25,5:NEX 
0 TO 25 STEP 2:PLOT 2004C,160+C,6:DRAUR 80,0,8:NEXT C 
0, 
RE 


4NEXT A:F 
XT B:FOR C= 


NEXT A:F 


J40 FOR A=C TO 60 STEP 2: FLOT 300,4+100,7:DRAUR 1: 
XT B:FOR C= 


CR B=0 TO 69 STEP 2:PLOT 360,B+100,8:DRAVR 25,25,8 
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STEP :PLC 





12 


PAPILLONS 


Pourquoi ‘‘papillons’” ? Et bien, tout simplement parce que 
la disposition des carrés sur l'écran suit le principe des ailes 
d'un papillon. 

Dans ce programme, nous avons sélectionné en mode 20 
colonnes, les 16 plus belles couleurs de l'AMSTRAD 
CPC 464. Il vous apprendra à manier le curseur texte et à 
gérer les couleurs. 

Maintenant, lancez le programme et laissez librement 
vagabonder votre imagination. 


QUELQUES DETAILS TECHNIQUES 
70-90 Initialisation des couleurs 
100-150 Initialisation des variables 
160-240 Affichage 

300-370 Présentation 


TABLEAU DES VARIABLES 
1 Coordonnée horizontale dans la partie haute de 


l'écran. 

Y1 Coordonnée verticale dans la partie haute de 
l'écran. 

X2 Coordonnée horizontale dans la partie basse de 
l'écran. 


Y2  Coordonnée verticale dans la partie basse de 
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l'écran. 
Canal de couleur. 


FÉEXEXÉEETE 
*PAFTLLONGY 
ÉXÉETEEEEEE 


par S,L & P Kerloch 





50 INK Mu 2: IN 3, d'IK 4,52 INK 5,6:INK 6,8: INK 7,11: INK 
BA: INK 9.1SINK 10,16:INK 11,1B2INK 12,19:INK 13,20:INK 14,24: 
INK 15,28 

100 CLS 

116 KI=INTIRND(1)#10)#1 

120 YI=INTERNE(L)#I4)41 

“(ENDEL)7I# 1. 

V2=INTIRNDEAI#0)#1 

TIANDI LE) # 










RINT CHR$(233) 
INT CRE (233) 
INT CHR$(233) 

RINT ChR$(233} 


18,81 INK 2,19: INK 0,0:EORDER 2 
6,12:PRINT'PAPILLONE" 
ÿ FOR B= & TO 14: LOCATE A,13:PRINT CHR$(208):NEXT À 


FOR =: TO 6000:NEXT 
PEN ? L'BORDER 0 


15 


TELECRAN 


Si vous avez choisi l'AMSTRAD CPC 464 pour ses quali- 
tés graphiques, ce programme va vous intéresser. En effet, 
il s’agit d’un programme de création graphique. Il utilise le 
mode 20 colonnes en 16 couleurs, mais vous pourrez le 
modifier pour obtenir des dessins plus précis en 40 ou 80 
colonnes. | 

Pour dessiner, vous utiliserez les quatre flèches ; pour 
effacer, les flèches + CTRL. La barre d'espace vous per- 
mettra de changer d'encre, la touche A sauvera la page 
écran sur cassette, la touche B chargera un dessin à partir 
d'une cassette, et la touche C effacera l’écran. Au départ, 
l'AMSTRAD vous demandera la couleur de l'encre. 

Maintenant, à vos pinceaux !!! 


QUELQUES DETAILS TECHNIQUES 

70-150 Initialisation 

160-265 Scrutation clavier 

270-300 Affichage du point 

310-340 Routines d'affichage du curseur 

1000-1050 Changement de couleur 

2000-2070 Page de présentation 

3000-3060  Routine de sauvegarde sur cassette de la 
page graphique 

4000-4070  Routine de chargement de la page graphi- 


que à partir de la cassette 


TABLEAU DES VARIABLES 
X 


Coordonnée horizontale du curseur 


Y Coordonnée verticale du curseur 

C Couleur du curseur 

A Canal de couleur 

1$ Touche frappée au clavier 

Q Canal de couleur (lors des manipulations avec la 
cassette) 

10 LXEREEEEEE 

20 ‘ *TELECRAN# 

30 Lttessites 

40 ‘ 

g0 par S,L & P Kerloch 

60 ‘ 

70 MODE 0 

80 GOSUB 2000 

90 c=1 

100 DIM COULEUR(15) 

110 A=2 

120 CLS 

130 INK 1,18 


140 X=320:Y=200 
INPUT "",couleur(1):INK 1,couleur(1):LOCATE 1,1:FRINT" 


150 
160 
170 
180 
190 
200 
210 
220 
239 
240 
250 
260 
265 


1$= 


IF 
IF 
IF 
IF 
IF 
IF 
IF 
IF 
IF 
IF 
IF 


INKEY$ 

1$=CHR$(240) THEN GOSUR 330:Y=Y+2:C=A-1:GOTO 270 
I$=CHR$(248) THEN GOSUB 310:Y=Y+2:C=A-1:GOTO 270 
I$=CHR$(241) THEN GOSUB SN 270 
I$=CHR$ (249). THEN COSUB 310:Y=Y-2:C=A-1 :GOTO, 270 
I$=CHR$#(242) THEN COSUR 330:X=X-4:C=A-1:GOTO0 270 
I$=CHR$(250) THEN COSUB 310:X=X-4:C=A-1:COTO 270 
I$=CHR$(243) THEN GOSUB 330:X=X+4:C=A-1:GOTO 270 
I$=CHR$(251) THEN COSUB 310:X=X+4:C=A-1:GOTO 270 
I$="C" THEN RUN 

1$="A" THEN GOSUB 3000 

I$="E" THEN COSUB 4000 


270 PLOT X,Y,C 

280 PEN ! 

290 IF 1$=" " THEN COSUR 1000 

300 GOTO 160 

310 PLOT X,Y,0 

320 RETURN 

330 PLOT X,Y,C 

340 RETURN 

1000 LOCATE 1,1: INPUT" ",COULEUR(A) 
1010 INK A,COULEUR(A) 

1020 A=A+I 

1030 IF A/16=INT(A/16) THEN A=1 
1040 LOCATE 1,1:PRINT" " 

1050 RETURN 

2000 BORDER 2:INK 0,0:INK 1,18,6:INK 2,15:SPEED INK 20,20 
2010 PEN ! 

2020 LOCATE 7,12: PRINT"TELECRAN" 
2030 PEN 2 

2040 FOR A=7 TO 14:LOCATE À,13:PRINT CHR$(208):NEXT À 
2050 FOR A=1 TO 6000:NEXT 

2060 INK 0,0:PEN ! 

2070 BORDER 9:RETURN 

3000 SPEED WRITE {SAVE "! DESSIN",B,49152,16383 
3010 OPENOUT "! COULEUR" 

3020 FOR G=0 TO 15 

3030 PRINT #9,COULEUR(G) 

3040 NEXT Q 

3050 CLOSEOUT 

3060 RETURN 

4000 LORD"! 

4010 OPENIN “! 

4920 FOR Q=0 TO 15 

4030 INPUT #9,COULEUR(G) 

4040 INK G,COULEUR(Q) 

4050 NEXT QG 

4060 CLOSEIN 

4070 RETURN 
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COURBES FOLLES 


Asseyez-vous dans votre canapé et regardez. C'est beau, 
non ? Ce programme trace onze courbes différentes en cou- 
leur à partir de fonctions polaires paramétriques. Le traçage 
s'accompagne d’un fond sonore assez insolite puisque la 
variation du son suit la courbe. 

Et ce n’est pas fini ! Quand le traçage de la courbe est 
terminé, les points défilent à la manière d’un chenillard. Il 
vous suffira d'appuyer sur une touche du clavier pour pas- 
ser au dessin suivant. Au départ, l'AMSTRAD vous deman- 
dera le numéro de la courbe par laquelle vous voulez 
commencer. Ça va du simple cercle au magnifique Lissa- 
jous en passant par les courbes les plus folles. 

Laissez-vous transporter dans le monde fascinant des gra- 
phismes et du son (en stéréo, s'il vous plaît !). 


REMARQUE : Vous ne profiterez de l'effet stéréophonique 
que si vous possédez un petit casque stéréo (type 
Walkman). 


QUELQUES DETAILS TECHNIQUES 


10-100 Initialisation 
110-160 Boucle principale 
220-700 Routines contenant les formules 


710-790 Permutation des couleurs 


800-880 Page de présentation 


TABLEAU DES VARIABLES 

Argument (varie de O° à 360°). 
Code couleur. 

Durée de la note. 

Numéro de la routine. 

Pas (incrément de A). 
Longueur de pause. 

Coordonnée horizontale du point. 
Coordonnée verticale du point. 


<XHOTMOO}> 


: LÉLECEEEEREEEEEE 
. *COURBES FOLLES* 
! LÉLEEEEEEEREEEETE 


par S,L & P Kerloch 


Ce En = LOI 


10 GOSUB 800 

20 MOCE 1! 

20 c=i 

49 INK 1,2:INK 2,6:INK 3,2 
50 INPUT e 

&0 IF e>ii THEN 50 

70 a=0 

ED ORIGIN 320,200 

90 EVERY 7,0 GOSUB 690 

100 DEG 

110 CLS 

120 ON e COSUB 220,260,300,349,380,420,460,500,540,590,640 
130 a=atp 

140 SOUND 1,x+200,d,15 

150 SOUND 4,y+200,d,15 

150 IF at=360 THEN 120 

170 e=e+{:a=0 

{80 COTO 710 

190 IF e=12 THEN 20 


200 IF INKEY$©"" THEN 110 ELSE 200 


210 

220 x={00#C05(a):y=100#SIN(a) :p=1 
230 PLOT x,y,c 

240 d=6:s=12: RETURN 

250 ‘ 


260 x=100#C08(a)*3:y=100*SIN(a)*3:p=1 

270 PLOT x,y,c:DRAW 0,0,c 

280 d=8:5=14 RETURN 

DD SE SR ne tn id 
300 x=100*C06(at3)"3:y=100*SIN(at5)*3:p=0.5 
310 PLOT x,y,c 

320 d=7:5=14 RETURN 

0 run NOT Lens nn 
340 »=100#C0S(ak7) :y=100XSIN(a#5) :p=0.5 

350 PLOT x,y,c 

360 d=6:e=100:RETURN 

0e ur Are T 2 
380 x= 150F008 a 2IS TN SRE) y SOS TATe) 24008184) :p=0.8 
390 PLOT x,y,c 

400 d=11:s5=13; RETURN 

410 


420 x=40#(C06(5#a)+3)#C08(2#a) :y=40*(C0S(5#a)+3)#SIN(24a) :p=1 


430 PLOT x,y,c 

440 d=10:s=20 RETURN 

450 ‘ 

460 x=40#(C05(11ka)+3)#C0S (a) :y=40#(COS(11#a)+3)#SIN(a) :p=i 
470 PLOT x,y,c 

480 d=10:s5=30:RETURN 

RE D Cr EN le Nr re 

500 x=50#(2#006(a)+C0S(2#a)) :y=50X(2XSIN(a)-SIN(2*#a) ):p=1 
910 PLOT x,y,c 

520 d=10:5=12: RETURN 

ADR RE due neue Lea ES Ua 

949 x=C06(a)#120+SIN (at12)#40 

990 y=SIN(a)#120+SIN (at12)#40 


560 p=0.5:PLOT x,y,c 


370 d=10:5=70:RETURN 

580 ? 

590 x=50+(2#C06(a)+C05(2*+a))XSIN(2#a) 
600 y=50#(2#SIN(a)-SIN(2#a))#COS(2#a) 
b10 p=2:PLOT »,y,c 

620 d=14:5=30:RETURN 

0e Pom ees mel 
640 x=-70#(2XSIN(a)-SIN(2#a))#COS(2#a) 
650 y=70#(2#C0S(a)+C0S(2#a) )XSIN(3#a) 
660 p=1.5:PLOT x,y,c 

670 d=13:5=30:RETURN 


DR 
890 c=cti:IP c=4 THEN c21 

700 RETURN 

710 INK 1,6:INK 2,24: INK 9,2 

720 FOR i=0 TO s'NEXT 

720 INK 1,24: INK 2,2: INK 3,6 

740 FOR i=0 TO 5:NEXT 

750 INK 1,2:INK 2,6:INK 9,24 

760 FOR i=0 TO 5 


770 I$=INKEYS:IF 1$6>"" AND E€12 THEN 110 ELSE IF 1$6"" AND E= 
12 THEN RUN 

780 NEXT 

799 GOTO 710 

800 MODE O:INK 1,18,6:INK 2,15:INK 0,0:BORDER 2 

810 PEN 1! 

820 LOCATE 4,12: PRINT'COURBES FOLLES" 

830 PEN 2 

840 FOR A=4 TO 17:LOCATE À,13:FRINT CHR$(208):NEXT À 
850 PEN 1 

860 FOR A=1 TO 6000:NEXT A 

870 MODE 1:BORDER 0 

880 RETURN 
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TENDRE MELODIE 


Un ordinateur qui ne joue pas de musique, n'est pas un 
ordinateur. Mais comme votre AMSTRAD en est un, nous 
étions dans l'obligation de vous jouer un petit morceau, en 
Si bémol, écrit par Guy LACOUR. 

Il se joue sur trois canaux en stéréo. Dommage que les 
DATA soient si longs à taper ! 


REMARQUE : Ne pas mettre le volume trop fort. 


QUELQUES DETAILS TECHNIQUES 
70-100 Page de présentation 
110-160 Lecture des notes et mélodie 
170-320 Données 


TABLEAU DES VARIABLES 
A Note du canal 1 
B Note du canal 2 
C Note du canal 4 
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ÉXEPRCEEELELEREE 


{ 4 

20 ‘ *TENDRE MELODIE* 

di HÉREEEEEEEEEEEEX 

40 

5ù par S,L & P Kerloch 
60 * 


70 NODE C'BORDER 2: TaK 1,18,6:INK 2,15:INK 0,0:PAPER O:PEN 1:SPE 

ED INK 49,40:INK 3,2 

80 LOCATE 4,11:PRINT'TENDRE MELODIE" 

90 PEN 2: LOCATE 4,12: FRINT STRINSS(14,CHR$ (208) ) 

. 100 PEN S'LOCATE 16,15 :PRINT" Guy Lacour" :RESTORE 
110 RERD s,5,c 

20 IF a=-1 THEN END 

139 SOÛND 15,40, 14 

140 SCUND 3,a,40,15 

150 SOUND 4,c,40,14 

ED SOTO IC 


170 DÈTA 1,159,284,1,159,264,1,134,284,1,134,284,1,106,379,1,106 
,379:1,119,379,1,106,379,1,159,478,1,159,478,1,134,478,1,134,47B 
180 DATA 1,159,478,1,159,470,1,149,478,1,159,476 

190 DATA 319, 426,190,319,426,190,268,426,213,268,426,213,213,426 


-.190,213,426,190,239,428,213 
296 DATA 219,426,213,319,496,190,319,426,190,268,426,190,268,426 
190. 426,476,159,426,426,159,426,426,159,42b,4286,159 
210 DATE 319,426,190,319,426,190,268,426,219,268,426,219,213,426 
42 26,190.239, 426,21,213, 426,213,319,426,190,319,426,190 
,190,269,426 
190,239,428,201,239,426,201,239,426,201,239,426,201 
179,268,758,179,268,536,213,319,358,213,319,379,239,358 
,289,239,9686250,268,402,919,299,958,950,179,268,979,179,268,53b 
134319, 478,134,301 
ZAC DATA 954,142,264,051,142,284,470,142,319,268,142,319,319 
5 TA 50,536, 338,15 536,338,213,536,68,219,536,638, 239,536 
LE 268,534,638,268,536,638 
9,526,1,239,526,1,239,536,1136,239,536,1136,239,1,478 
+. {, 299,284,1,260, 284. 1,213,979,1,213,979,1, 213,379, Î 


913 376 a7 4 
213,379. ! 179,4 462,1,179 


276 DATÉ 192,1 ! 
E0G DATA 1797,403,1,179,402,1,219,402,1,213,402,1,213,402,1,213,4 
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02,1,268,1,:,268,1,1,268,536,1,268,526 

290 DATA 319,536,190,319,546,190.269,536,219,260,536,213,213,478 
,190,213,478,190,229,478,213,213,478,213,319, 402,1,319,402,1,319 
:402,536,319,402,538 

390 DATA 268,536,1,248,526,1,268,534,750,260,996,740,319,478,1,3 
19,478,1,319,478,568,319,478,536,319,478,1,319,478,1,319,478,528 
,319,478,536 

310 DATA 159,426,190,159,426,190,159,426,190,159,4286,190,199,426 
,190,159,426,190,159,426,190,159,426,190 

320 DATA -1,0,0 
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BOITE A RYTHMES 


Nous vous proposons maintenant ce petit programme de 
boîte à rythmes. Il est composé de quatre sous-programmes 
jouant des sons différents et d’un programme central qui 
gère tous les bruits. Ce programme principal utilise la 
commande EVERY qui déclenche une routine à un moment 
déterminé, en 200e de seconde. II se sert de quatre chro- 
nomètres pour déclencher les quatre sous-programmes. 
C'est une utilisation simple de cette commande très utile 
(vous pouvez modifier le rythme en changeant le premier 
paramètre de la commande EVERY). 


QUELQUES DETAILS TECHNIQUES 

70-90 Page de présentation 

100-140 Déclenchement des routines par EVERY 
150-170 1er son court 

180-200 2° son court 

210-240 1er son long 

250—290 2° son long 


REMARQUE : Ce programme ne contient aucune variable. 


è EXÉEEIEELEREELEE 
! #BOITE À RYTHMEX 
: ÉXEXETELLEEELEEE 


par S,L & P Kerloch 


Ce on BD rar 


10 MODE O:PAPER O:INK O,0:INK 1,18,6:INK 2,15: BORDER 2:SPFEED INK 
20,20:PEN ! 

20 LOCATE 4,12:PRINT'BOITE À RYTHMES" 

30 PEN 2:LOCATE 4,13:PRINT STRING$(15,CHR#(208}) 
40 EVERY 90,0 COSUR 190 

30 EVERY 15,1 COSUB 120 

£O EVERY 30,3 COSUB 90 

75 EVERY 45,2 COSUB 1590 

6û IF INREY4= ne THEN 80 ELCE END 

90 ENV 1,!5,-1,1 

100 SOUND 2,200, 15,15,1,0,1 

110 RETURN 

120 ENV 1,15,-1,1 

139 SIUND 2,284,15,15,1,0,1 

150 RETURN 


150 ENV 2,15,-1,3 
160 SOUND 1,600,45,15,2,0,10 
170 SOUND 4,5,45,15,2,0,1 


180 RETURN 

190 ENV 3,15,-1,5 

200 ENT 1,1,-1,1,2,1,1,1 
219 SOUND 1,10,45,15,3,1 
220 SOUND 4,10,45,15,3,1 
230 RETURN 


PS F2 
11 
1 


CLAVIER 


Répondez franchement ! N'avez-vous jamais eu envie de 
jouer d’un instrument ? Nous vous proposons de pianoter 
sur votre AMSTRAD. Toutes les informations concernant 
les notes et les touches sont incluses dans le programme. 
La pression sur une touche seule vous donnera une noire, 
cette même touche accompagnée de SHIFT donnera une 
blanche. Vous pourrez modifier l'enveloppe de volume ou 
de ton dans les lignes 400 et 500 en vous inspirant de l’an- 


nexe 1. 


REMARQUE : Avant de faire RUN, vérifiez bien que vous 
êtes en minuscules. 


QUELQUES DETAILS TECHNIQUES 


70-90 
100-150 
160-210 
220 
300-390 
400-510 
600-660 


Initialisation des couleurs 
Remplissage du fichier de notes 
Scrutation clavier 

DATA des notes et des touches 
Affichage des informations 
Exécution de la note 

Page de présentation 


TABLEAU DES VARIABLES 


PERIODE(18) 


Tableau de la hauteur du son de la noire 
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ù HAE 1] 


KA ZI CRUE Li LEÉ 


BR 
nn vante Do 





TOUCHES(18) Tableau des touches 
D Hauteur du son de la blanche 


1$ Touche frappée au clavier 
19 * ÉÉRÉEREEE 

22 #CLAVIERX 

30 HELEEEREE 

4û 

Eù par 6,L & P Kerloch 

69 

70 GOSUB 600 


80 CLS:MODE 1:INK 1,6:INK 2,24: INK 3,18:INK 0,0 

90 GOSUB 300 

199 DIN FERIODE({8) 

110 DIM TOUCHES (19) 

1i6 FOR A=û TO 18 

139 READ TOUCHES (A) 

49 READ PERIODE (A) 

150 NEXT A 

169 I$=INKEYS 

{TC FOR A=0 TO 18 

199 IF I$=TOUCHES(A) THEN GCOSUB 400 

190 IF I$=LOWER$(TOUCHE#(A)) THEN D=PERIODE(A) :GOSUB 500 

209 NEXT À 

2:09 GOTO 160 

220 DATA G,470,V,451,E,426,R,402,7,379,Y,358,0,438,1,319,0,301,P 
,294,4,268,6,253,D,239,F,225,6,213,H,201,7,190,K,179,L,169 
200 PEN L'LOCATE 1,86: FRINT STRING#(40,CHR$(208)) 

310 LOCATE {,8PRINT" Q W EE OR T Y OU I O PF 


320 PEN 2 

336 FRINT:FRINT'O0 DO# RE RE# MI FA FA# COL SOL# LA" 

340 FEN 3 

356 PRINT PRINT PRINTPRINT" À S D F G H JT K L' 





349 PEN 2 
570 PRINT:PRINT'LA# ST DO DO# RE RE# MI FA FA#" 
380 PEN J'LOCATE !,18:PRINT STRING$(40,CHR$(208)) 


390 RETURN 

400 SOUND 2,PERIODE{A),30,15 

410 RETURN 

500 SOUND 2,D,15,15 

319 RETURN 

&00 MODE O:INK 0,0:BORDER 2:INK 1,18,6:INK 2,15:SPEED INK 20,20 


619 PEN 1 

620 LOCATE 7,12:PRINT'CLAVIER" 

630 PEN 2 

64Q LOCATE 7,13:PRINT STRINGS(E7,CHR$(299)) 
650 FOR A=1 TO 4000:NEXT À 

660 MODE 1'RCRDER O:RETURN 


BOMBARDIER 


Mission B 19... Vous devez raser Micropolis avec un bom- 
bardier défectueux qui ne lâche que trois bombes à chaque 
passage, de plus, une panne vous contraint à planer et à 
perdre de l'altitude. La seule commande encore en service 
est la barre d'espace pour lâcher un obus. Vous devez 
détruire les hauts buildings de la ville pour ne pas entrer en 


collision avec 
d'atterrissage. 


l'un d'eux et vous frayer une piste 


Si vous mourrez pour la patrie dans cette mission péril- 
leuse, vous resterez un héros dans la mémoire de tous. 
Adieu, et bonne chance ! 


QUELQUES DETAILS TECHNIQUES 


70-100 
110-290 
300-380 
1000-1050 
2009-2040 
3000-3040 
4000-4050 


Initialisation 

Boucle des passages 

Affichage du score et invitation à rejouer 
Remplissage du fichier des buildings 
Affichage des buildings 

Redéfinition de caractères 

Présentation 


TABLEAU DES VARIABLES 
X Coordonnée horizontale du bombardier 
Y Coordonnée verticale du bombardier 
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BOMBES Nombre d’obus qu'il est possible de lâcher à 
chaque passage 

A Coordonnée horizontale de l'étage 

J Coordonnée verticale de l'étage 

H Hauteur de la tour 

SCORE Points acquis 


10 HÉFEÉLEETELEX 

20 ‘ FBOMBARDIERX 

39 ÉÉECEEELETE 

40 ‘ 

o0 ‘ par 6,L & F Kerloch 


70 INK 0,0PAPER O:INK 1,18,6:PEN LINK 2,15: BORDER 2:SPEED INK 
20,20 

80 MODE O:GOSUR 4000:GOSUB 3000:GOSUB 1000 BORDER 1:INK 1,13: INK 
2,6:PEN !'CLS:PAPER 2:GOSUB 2000 PAPER 0 

90 CALL EBD{9 

100 INK 3,18:PEN 3: INK 4,10 

110 FOR Y=2 TO 23 

120 BOMBES=3 

130 FOR X=1 TO 19 

149 LOCATE X,Y:PRINT'&" 

150 IF HAUTEUR {X+1,Y)=1 THEN 300 

160 FOR Z=1 TO 209:NEXT Z 

170 IF INKEY$€}" THEN 260 

180 IF EOMBES€=0 THEN 260 ELSE PEN 4 

190 FOR H=Y TO 24 

209 LOCATE X,H:PRINT"‘" 

210 PEN 3'LOCATE X,Y:PRINT'&":PEN 4 

229 LOCATE X,H:PRINT" 

230 IF HAUTEUR(X,H+{1)=1 THEN HAUTEUR (X,H+1)=0 : LOCATE X,H+1:PR 
INT * :GOTO 250 

246 NEXT H 

256 BOMBES=BOMBES-1 :PEN 3 

260 LOCATE X,Y:FRINT" 

270 SCORE=SCORE+1 

280 NEXT K,Ÿ 

290 SCORE=SCORE +50 
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300 CLS 

319 INK 1,6,18:INK 2,15 

320 PEN 1'LOCATE 5,12:PRINT"SCORE : "SCORE 
330 PEN 2 


340 FOR A=5 TO 15 :LOCATE À,13:PRINT CHR$(208):NEXT À 
330 PRINT:PRINT:PRINT:PRINT:PRINT" VOULEZ-VOUS REJOUER (O/N) * 
360 REFONSE$=INKEY$ . 

370 IF REPONSE#="0" OR REPONSE#="0" THEN RUN 

380 IF REFCNSES="N" OR REPONGE#="n" THEN END ELSE 360 
1090 DIM HAUTEUR(20,25) 

16:0 FOR A=1 TO 19 

1020 H=INT(RND(1)#15)+! 

1030 FOR 3225 TO (25-H) STEP -{:HAUTEUR (A,J)={:NEXT J 
1040 NEXT A 

1050 RETURN 

2099 FOR A={ TO 20 

2010 FOR B=4 TO 25 

220 IF HAUTEUR(A,B)=1 THEN LOCATE A,B:PRINT "#" 

2930 NEXT B,A 

2040 RETURN 

3000 SYMROL AFTER 36 

5010 SYMBOL 37,238,238,238,0,187,187,187,0 

3020 EYMEOL 38,0,192,216,252,254,255,24,48 

3030 SYMEOL 39,0,28,8,28,28,28,28,8 

3040 RETURN 

4000 LOCATE &,12:FRINT"BOMBARDIER" 

4010 PEN 2 

40620 FOR 4=6 TO 15 

4030 LOCATE À,13:PRINT CHR$(208) :NEXT À 

4046 FOR A=1 TO 2000:NEXT À 

4030 RETURN 


3D DRIVER 


Vous avez déjà sûrement rêvé d’être pilote de Formule 1. 
Ce rêve va enfin devenir réalité grâce à votre AMSTRAD. 
Nous n’osons pas comparer notre programme avec le célè- 
bre logiciel ‘Pôle position’” sur ATARI, mais il est bâti selon 
le même principe. Une route en trois dimensions défile 
devant votre Formule 1. Vous ne devez pas sortir de la route. 
Vous utilisez les quatre flèches pour piloter : la flèche droite 
vous fait aller à droite, la fèche gauche à gauche, la flèche 
haut vous fait accélérer et la flèche bas vous fait décélérer. 
L'AMSTRAD calcule votre vitesse et le nombre de kilomè- 
tre parcourus. Votre voiture est munie d’une boîte de vitesse 
automatique. Maintenant, vous êtes sur la grille de départ, 
le feu passe au vert, et dans un vrombissement d'enfer, 
vous démarrez sur des routes toujours changeantes. 


QUELQUES DETAILS TECHNIQUES 


70-140 Initialisation 
150-210 Test clavier 
220-270 Test de vitesse 


280-300 Affichage de la routine et effaçage de 
l'ancienne route 

310-330 Bruit du moteur 

340-400 Traçage de la nouvelle route 

410-440 Calcul et affichage des kilomètres parcou- 
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rus et de la vitesse 
450-470 Test de sortie de route 
480-550 Redéfinition de caractères 
560-650 Explosion 
660-720 Page de présentation 


TABLEAU DES VARIABLES 
A Coordonnée horizontale de la voiture 


B Coordonnée verticale de la voiture 
C Bord gauche de la route 

L Largeur de la route 

VIT Vitesse 

SOU Bruit du moteur 

A$ Scrutation clavier 

F Choix de la direction de la route 
PT Kilomètres parcourus 

10 ? XELEEEELELX 

20 *3D DRIVERY 

30 ? LÉFEEEEEETE 

40 

o0 par S,L & F Kerloch 

60 

70 COSUB 660 

80 a=20:b=25:c=250:1=200:VIT=10: S0U=2000 

90 GOSUB 480 

100 CLS:MODE 1:INK 1,9:INK 0,0:BORDER O:INK 3,1:INK 2,6,15:ORIGI 
N 1,100 


110 SPEED INK 2,2 

120 FOR r={ TO 300:PLOT 0,r:DRAW 639,r,3:NEXT r 
130 SPEED KEY 10,1 

140 ORIGIN 1,1 

150 LOCATE a,b:PRINT " * 

160 a$=INKEY$ 

170 IF a$=CHR$(243) THEN a=ati 

180 IF a$=CHR$(242) THEN a=a-{ 

190 IF A$=CHR$(240) THEN VIT=VIT+1 : SOU=SOU-30 
200 IF A$=CHR$(241) THEN VIT=VIT-1 : SOU=SOU+30 
210 IF a$=CHR$(224} THEN END 


220 IF ati THEN a=i 

230 IF a=38 THEN a=38 

240 IF vit>200 THEN vit=200:sou=1500 

250 IF vit<O THEN vit=0:sou=2000 

280 IF sou/5:500 THEN sou=1000 

270 IF sou/5€=200 THEN sou=1700 

280 PEN #1,9:LOCATE a,b:PRINT CHR$(126):CHR$(127) 
290 PLOT c,0:DRAW 300,99,0 

300 PLOT c+],0:DRAY 330,99,0 

319 SOUND 1,500/5,31,15,0,0,1 

320 SOUND 2,600,31,15,0,0,10 

320 SOUND 4,sou/5,31,15 

3860 f=INT (RND(1)#2)+#1 

350 IF cé=0 THEN c=c+16:GOTO 390 

360 IF c>639-1 THEN c=c-16:GOTO 390 

370 IF f=2 THEN c=ctlé 

380 IF f=1 THEN c=c-1Î6 

390 PLOT c,C:DRAW 300,99,2 

400 FLOT c+1,C:DRAW 330,99 

410 LOCATE 3,1:PRINT * j 

420 pt=ptt+vit/1000 

430 LOCATE 4,1:PRINT INT(pt)'"ka 

440 LOCATE 3,3:FRINT VIT:"km/h * 

450 IF INT(c/{b)>=a-1 THEN GOSUB 560 

460 IF INT((c+1)/ib6)€=a THEN GOSUB 560 
470 GOTO 150 

480 SYMECL AFTER 126 

490 SYMEOL 126,63,1,1,249,251,255,251,248 
u00 SYMBOL 127,252,128,128,199,223,255,223,31 
910 SYMEOL 128,16,8,81,2,6,10,35 

u20 SYMBOL 129,18,32,208,32,34,47,206,8 
330 SYMBOL 130,0,196,36,0,17,9,201,32 

u40 SYMBOL 131,12,17,6,128,16,19,4,73 

550 RETURN 

560 INK 2,0,15:PEN 2 

370 INK 1,15,0:INK 2,0,15:INK 3,15,0 

J60 LOCATE a,b: PRINT CHR$(128):CHR# (129) 
590 LOCATE a,b-1:PRINT CHR#(130):CHR#(131) 


a 


600 FOR f=15 TO 8 STEP -] 

619 SCUND 6,0,50,f,0,0,20 

620 NEXT f 

630 FOR d=1 TO 300:NEXT 

b4Q PEN ! 

650 RUN 

660 MODE O'‘INK 1,18,6:INK 2,15:SPEED INK 20,20:INK 0,0:BORDER 2 
670 PEN 1! 

680 LOCATE 6,12:PRINT"3D DRIVER" 

690 PEN 2 

700 LOCATE 6,13:PRINT STRING$(9,CHR$(208)) 
710 FOR A=1 TO 4000:NEXT A 

720 BORDER O:PEN 1 :MODE 1:RETURN 
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PAC MAN 


C'est une reprise simplifiée sur AMSTRAD du célèbre jeu 
de gloutons que vous pouvez maintenant trouver sur tous 
les ordinateurs et les consoles de jeu. Un labyrinthe se des- 
sine sur l'écran, et le jeu commence. Deux fantômes vous- 
poursuivent pour vous croquer alors que vous vous faites 
un festin de toutes les petites billes que vous rencontrez 
sur votre passage. Vous vous déplacez à l’aide des quatre 
flèches. 

Bon appétit ! 


QUELQUES DETAILS TECHNIQUES 
70-110 Page de présentation 
120-200 Redéfinition 

210-260 Affichage des billes 
270-500 Affichage du labyrinthe 


510-590 Parcours du deuxième fantôme 
600-670 Initialisation 

680-730 Affichage Pac Man 

790-910 Déplacement et affichage des fantômes 


920-970 Perte d’une vie 

980-1000 Bruit du Pac Man mangeant une bille 
1010-1060 Bruit du fantôme dévorant Pac Man 
1070-1200 Fin de partie et invitation à rejouer 


TABLEAU DES VARIABLES 


X Coordonnée horizontale du Pac Man 
Y.: Coordonnée verticale du Pac Man 

X1 Coordonnée horizontale du 1e' fantôme 
Y1 Coordonnée verticale du 1er fantôme 
U(300) Déplacement horizontal du 2e fantôme 
V(300) Déplacement vertical du 2e fantôme 
BILLE$(35,22) Tableau des billes 

PACKMEN Nombre de vies 

1$ Touche frappée au clavier 

SCORE Nombre de billes avalées 

A$ Caractère représentant le Pac Man 

10 ? *ÉELEEEEX 

20 *FAC MANX 

30 ‘ XKEXELEEX 

40 

50 ‘ par L.Kerloch 

60 


70 MODE O:INK 0,0:PAPER O:BORDER 2:INK 1,6,18:INK 2,15:PEN 1'SFE 
ED KEY 5,5:SPEED INK 20,20 

80 LOCATE 7,12:PRINT"FAC MAN" 

90 PEN 2 

100 LOCATE 7,13:PRINT STRING#(7,CHR$(208)) 

110 FOR X=1 TO 5000:NEXT X 

120 SYMBOL AFTER 32 

130 SYMBOL 33,62,127,236,249,252,127, 62,0 

140 SYMBOL 34,124,254,55,31,63,254,124,0 

50 SYMBOL 35,56, 124, 238,234,238,1993, 68, +] 

160 SYMBOL 346,68,198,228,254,230, 124,56,9 

170 SYMBOL 37,0,0,24,60,40,24,0,0 

180 SYMBOL 38,28,62, 107,127,119,99,127,85 

190 SYMBOL 39,255,255, 255,255,255, 255,255,25 

200 MODE 1:INK {,0:INK 2,2:INK 3,26:PEN 1 ES 3 
210 DIM BILLES (35, 22) 

220 FOR X=6 TO 35 

230 FOR Y=4 TO 22 

240 BILLES$(X,Y)="#" 


250 LOCATE X,Y'PRINT'#" 

28G NEXT Y,X 

270 LOCATE 1,1 

280 INK 2,0:FEN 2 

290 PRINT:PRINT:PRINT CHR$(22)+CHR$ (1) 

30 BRINT" [ERREEEEE EEE EEE EEEEEEEEEEEEERRE 
310 PRINT" 4 11111! ‘n 
320 PRINT" PENT. LPFCRELEN ISLE ECCRE, 16 
330 PRINT" 
340 PRINT” 
350 PRINT" 
380 PRINT" 
370 PRINT" 
380 PRINT* 
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4 1411 21111181 ALI OHHIITE 10 

4 

4 

4 

4 

4 
390 FRINT" REDSEEE EE EEE EEE EEE EREEE] 

4 

4 

4 

4 

4 

! 

4 


(HERBE EEEE EE DEEE RERERSE 
1111 LATIT 14 
LENS OLENL HENFERE 4 NTI IT 1% 

LAIT OtttTtU8 11! Jun 


ÉD OHATENIL HENIEIIT LEIIL 11110 


400 PRINT" DRE EEEEERSEESEEEDSEEEERS EEE] 
410 PRINT" 
420 PRINT" 
430 PRINT" 
440 PRINT" 
450 PRINT" 
460 PRINT" 
470 PRINT" Ar N 
480 ERINT" PP IT 
490 PRINT CHR$(22)+CHR$(0) 

500 PRINT" SCORE : F 
519 DATA 1,0,1 
:0,1,0,1,0,1,0 
,0,1,0,1,0,0,- 
1,-1,0,-1,0,- 


EDS EEEE EEE EEE EEE EEE EEE 

AUIT ONEHIT 11114 
AHIIA HITS 1111 14 
(REREREEEP EEE ER EEE EEEREREE ] 
VESSIE EFFET ES BEI LELET ER 


DEDIT OLHANET HHNT HEHIITEE 14% 


rl 
0, 
0,- 


ss 


-1,0 


1,0,-1,0,- 
:1,1,0,1, 
,0,1,0, 3 
330 DAT 
,71,0,0, 
-1,0,-1, 
571,0, -{ 
540 DATA 


,0,-1,0,-1,0,-1,-1,0,-1,0,-1,0,-1,0,-1,0,0,-1,0,-1,0,-1,0,-1,-1 
0,-1,0,-1,0,-1,0,-1,0,0,1,0,1,0,1,0,1,0,1,0,1,1,0,1,0 

Ju0 RESTORE 510 

960 DIM U(300),V(300) 

570 FOR À=1 TO 200 

980 READ U(A),V(A) 

990 NEXT À 

699 INK 2,2:INK 1,24 

610 FACKMEN=3 

620 X=25:Y=13:GOSUB 930 

630 X1=21:Y1=19 

640 X2=9:Y2=11 

650 ENV 1,15,-1,4:SOUND 2,478,15,15,1:SOUND 2,358,30,15, 1 : SOUND 

2,478,15,15,1:SOUND 2,358,30,15,1: SOUND 2,319,15,15,1:SOUND 2,28 
4,30,15,1:SOUND 2,419,15,15,1:SOUND 2,284,30,15,1:SOUND 2,478,15 
19,1 SOUND 2,358,30,15,1:SOUND 2,478,15,15,1 

660 SOUND 2,358,30,15,1:SOUND 2,478,15,15,1:SOUND 2,358,30,15,1 

670 FOR WE=1 TO 2000:NEXT 4E 

680 I$=INKEYS 

690 PEN i 

700 IF I$=CHR$(240) AND (TESTI((X-1)#16)+1,INT(400-((Y-1)#16)))= 

0) THEN LOCATE X,Y:PRINT" “:Y=Y-1:A$="$":GOTO 740 

710 IF I$=CHR$(241) AND (TEST(((X-1)#16)+1,INT(400-((Y+1)*X16)))= 

0) THEN LOCATE X,Y:PRINT" “:Y=Y+1:A$="#";COTO 740 

720 IF I$=CHR$(242) AND (TEST(((X-2)#16)+1,INT(400-(Y#161))=0) T 

HEN LOCATE X,Y:PRINT® ":X=X-1:A$=CHR$(34) :GOTO 740 

730 IF 1$=CHR$(243) AND (TEST((X#16)+1,INT(400-(YX16)))=0) THEN 

LOCATE X,Y:PRINT" ":X=X+{:A$=" 1" 

740 LOCATE X,Y:FRINT A$ 

750 IF BILLES(X,Y)="#" THEN SCORE=SCORE+I BILLES (X,Y)=" ":GOSUE 
380 

760 LOCATE 14,24:PRINT SCORE 

770 IF SCORE=166 THEN 1070 

780 LOCATE X1,Y1:PRINT BILLES(X1,Y1) 

790 PEN 3 

800 IF Yi>Y AND (TEST(((XI-1)#16)+1,INT(400-((Y5-1)#16)))=0) THE 

N Y1=Y1-1:GOTO 840 

810 IF YI€Y AND (TEST(((X1-1)#18)+1,INT(400-((YI+1)#18)))=0) THE 

N Y1=Y1+1:GO0TO 840 


820 IF X12X AND (TEST(((X1-2)#16)+1,INT(400-(YIK16)))=0) THEN X1 
=X1-1:GOTO 840 
a IF X1€X AND (TEST((X1#16)+1,INT(400-(Y1#18)))=0) THEN X1=X1+ 


0 LOCATE X1,Y1:PRINT'&" 

850 IF X=X1 AND Y=Y1 THEN GOSUB 1010:GOSUB 920 
880 PEN 1:LOCATE X2,Y2:PRINT BILLES$(X2,Y2) 

870 X2=X2+U(2):Y2=Y2+V(2) 

880 PEN 3:LOCATE X2,Y2:PRINT "&" 

890 IF X=X2 AND Y=Y2 THEN COSUB 1010:GOSUB 920 
900 Z=Z+1:IF Z2=201 THEN Z=1 

919 GOTO 680 

920 PACKMEN=FACKMEN-1 :LOCATE X1,Y1:PRINT BILLE#(X1,Y1):X1=21:Y1= 
19 

930 PEN ! 

940 LOCATE 34,24:PRINT PACKMEN 

950 PEN 3 

960 IF FACKMEN=0 THEN 1070 

970 X=25:Y=13:RETURN 

980 ENT 1,5,5,1,10,-2,1,10,2,1 

9930 SOUND 2,300,3,15,0,1 

1000 RETURN 

1010 ENV 2,15,-1,6 

1520 EGUND 6,239,40,15,2 

1036 SOUND 6,142,40,15,2 

1040 SOUND 6,179,70,15,2 

1050 FOR a=1 TO 3000:NEXT a 

1060 RETURN 

1070 MODE O:INK 1,18,6:INK 2,15:BORDER 2:INK 0,0:SPEED INK 20,20 
:INK 3,2 

1080 PEN !{ 

1090 LOCATE 9,10:PRINT'FIN" 

1100 PEN 2 

1110 LOCATE 9,11:PRINT STRINC$(3,CHR$#(208)) 
1120 PEN 3 

1130 LOCATE 3,17:PRINT “Votre score:":SCORE 
1140 PEN ! 

1150 ENV 1,15,-1,6 

1160 SOUND 2,478,60,15,1:SOUND 2,379,60,15,1:SOUND 2,319,60,15,1 
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:SOUND 2,239,60,15,1 

1170 FOR A=1 TO 5000:NEXT À 
1180 I$=INKEY$ 

1190 IF 1$@"" THEN RUN 
1200 GOTO 1180 


STEEPLE CHASE 


‘*...- Alors que Aboudit (en casaque rouge) sort du petit 
bois, suivi de Topeka (en casaque bleue) et de Ordic (en 
casaque jaune), qui vient de chuter sur l'obstacle de la sor- 
tie du bois... Aboudit et Topeka se disputent la première 
place, mais Aboudit chute sur l'obstacle des tribunes, et 
c'est Topeka qui passe la ligne d'arrivée. Il n'y aura pas de 
photo ; il est évident que le premier est Topeka, déjà vain- 
queur du Grand Prix d'Automne l'an dernier. 

Vous avez sûrement deviné qu'il s’agit d’un jeu de course 
hippique. 1 à 3 participants peuvent jouer en même temps. 
Il faut passer les obstacles en appuyant sur ‘‘Z'" pour la 
casaque jaune, sur ‘’,'" pour la casaque bleue, et ‘’.”" pour 
la casaque rouge. Il n’y a qu'un gagnant à chaque partie. 
Cravachez votre cheval car les parieurs ont beaucoup misé 
sur vous | 


QUELQUES DETAILS TECHNIQUES 

70-100 Page de présentation 

110-280 Initialisation et redéfinition 

290-330 Affichage des chevaux 

340-370 Test clavier 

380-520 Test de rencontre avec un obstacle et fin 
de la boucle principale. 

530-570 Invitation à rejouer 
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600-830 Dessin des tribunes 


TABLEAU DES VARIABLES 

NJ Nombre de joueurs 

O(4) Coordonnée horizontale des obstacles 
X Coordonnée horizontale des chevaux 
Y(3) Coordonnée verticale des chevaux 

1$ Touche frappée au clavier 


Mr HPLE CHAT 

30 ÉECOOEROEEEEEEE 

40 ‘ 

où ‘ par S,L & P Kerloch 
60 


70 MODE O:BORDER 2:INK 1,18, &:INK 2,15SPEED INK 20,20: INK 0,0:P 
AFER OPEN ! 
Bû LOCATE 4,12: PRINT'STEEPLE-CHASE" 
90 PEN 2:LOCATE 4,13:PRINT STRING$(13,CHR$(208)) 
100 FOR Z=1 TO 3000:NEXT Z 
110 MODE O:BORDER 1:INK 0,1:PAPER #1,0:PEN #1,1 
129 EYMBOL AFTER 24 
139 SYMBOL 35,410,84,816,&14,870,R3A,B21,&42 
140 SYMBOL 36,80,80,60,840,&66,866,86b, 866 
150 SYMBOL 37,460,8FO0,LFO,EFO,&FO, RFO, LPO ,&FO 
160 SYMBCL 36,86,8P,&F,RF,8F,8F,RP,RF 
170 VINDOW #0,1,20,12,20:INK 14,9 
180 INK 15,10:PAPER 1S:CLS 
190 INK 1,24:INK 2,20:INK 9,6:INK 4,26:INK 5,0:INK 6,2: INK 7,8:1 
NK 8,10:INK 9,12:INK 10,14INK 11,16:INK 12,1B8:INK 13,22 
200 FOR Q=1 TO 4:C(G)=GY#5:NEXT Q 
210 INPUT #1,"NOMBRE DE JOUEURS ? (1-3) *,N] 
220 IF NJ£1 OR NI3 THEN 210 
230 CLS #1:CLS:COSUB 800 
240 Y{1)1=3'Y{2)=5:Y(3)27 
250 FOR A=! TO 4 
260 FOR B=2 TO 8 
270 PEN A+9:LOCATE O(A),B:PRINT":" 
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280 NEXT B,A 

290 FOR X=! TO 20 

300 FOR A=1 TO NJ 

310 IF Y(A)=0 THEN 330 

320 PEN A:LOCATE X,Y(A):PRINT"#" 

330 NEXT À 

340 I$=INKEYS$ 

30 IF (1$="Z" OR 1$="1") AND Y(1)€>0 THEN Y(1}=2 

360 IF I$="," AND NJ>{ AND Y(2)€>0 THEN Y(2)=4 

370 IF 1$="." AND NJ=3 AND Y(3)€>0 THEN Y(3)=6 

380 FOR A=1 TO NJ 

390 FOR A=1 TO 4 

400 IF Y(A)=0 THEN 420 

410 IF X=O(B) AND Y{A)/2€}INT(Y(A)/2) THEN Y(A)=0:SOUND 2,200,30 
,15;:1 

420 NEXT B,A 

430 IF Y(1)<>0 THEN Y(1)=3 

440 IF Y(2)€>0 THEN Y(2)=5 

450 IF Y(3)€>0 THEN Y(3)=7 

460 FOR A={ TO NJ 

470 IF Y(A)=0 THEN 510 

480 IF X<0{1) AND X@0(2) AND K@0(3) AND X<0{4) THEN LOCATE X 
YA): PRINT" ":GOTO 510 

490 PEN (X/5)+9 

500 LOCATE X,Y(A):PRINT"." 

910 NEXT À 

320 NEXT X 

530 CLS #2 

935 FOR W=100 TO 150:SOUND 2,W,1,15:NEXT W 

940 INPUT #2," Voulez-vous rejouer ?",REP$ 

590 !F REP$="o" OR REP$="O" THEN RUN 

960 IF REP$="n" OR REP$="N" THEN END 

o70 GOTO 530 

600 WINDOW #2,1,20,21,25:PAPER #2,14:CLS #2:PRINT #!,CHR$(22)+CH 
R$(1):WINDOW #4,1,20,7,11:PAPER #4,14:CLS #4:PEN #1,L'LOCATE #1, 
1,1:FRINT #1,"GRAND PRIX D'AUTOMNE" 

b19 FOR A=5 TO 9 

620 FOR B=4 TO 16 
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#30 PEN #!,INT(RND(1)#15)+#1 

640 LOCATE #1,B,A:PRINT #1,"%° 

650 PEN #1,INT(RNDI1)#15)+1 

BEQ LOCATE #1,B,A:PRINT #1,°£* 

870 PEN #1.11 

680 LOCATE #1,B,A-1:PRINT #1,°$" 

690 NEXT B,A 

700 PEN #1,8:LOCATE #1,4,3:PRINT #1,STRINGS(13,CHR$(140)) 
710 FOR A=4 TO 17 STEP 2 

720 PEN #1,8:LOCATE #1,A,3:PRINT #1,CHR$ (155) 

730 PEN #1, INT(RND(1)#15)+1:LOCATE #1,À,2:PRINT #1,CHR$(136) 
740 NEXT À: 

790 FEN #1,8:LOCATE #1,3,3:PRINT #1,CHR$(136) :LOCATE #1,17,3:PRI 
NT #1,CHR$(132) 

760 FOR A=4 TO 10 

770 LOCATE #1,3,A:PRINT #1,CHR$(138) :LOCATE #1,17,A PRINT #1,CHR 
$(133) 

780 NEXT À : 

790 LOCATE #1,3,10:PRINT #1,STRINGS(15,CHR$(143)) 

800 PRINT #1,CHR$(22)+CHR#(0) 

810 ENV 1,15,-1,2 

620 FOR A=1 TO 10:SOUND 2,50,15,15,1:NEXT À 

825 FOR A=1 TO 2000:NEXT 

630 RETURN 


53 


LA MANOIR DE ROCHEBRUNE 


Qui n'a jamais rêvé de découvrir le secret du mystérieux 
Manoir de Rochebrune ? 

En effet, dans les villages alentours, on raconte d'étran- 
ges légendes à la veillée : 


‘*... Dans des temps reculés, le Seigneur de Rochebrune 
cacha dans les entrailles de son château trois anneaux ornés 
de pierres précieuses. Mais pour les réunir, il faut vaincre 
de terribles monstres et surtout ne pas s'égarer !.… 

De nombreux aventurieurs ont tenté leur chance, mais 
jamais aucun n'est revenu du terrifiant Manoir de 
Rochebrune..….”" 

Aujourd'hui, vous avez décidé de pénétrer dans ce lieu 
maudit afin de retrouver ces trois anneaux de puissance et 
de richesse. 

Que Saint Georges, protecteur des chevaliers, vous 
garde | 


Toutes les touches à utiliser se trouvent sur le pavé 
numérique. 


DEPLACEMENTS 

7 en haut à gauche 
8 en haut 

9 en haut à droite 
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6 à droite 


3 en bas à droite 


2 en bas 


1 en bas à gauche 


4 à gauche 


AUTRES COMMANDES 

5 ouvrir une porte 

O combattre quand vous vous trouvez près d’un monstre 
. prendre l'objet sur lequel vous vous trouvez 

‘ENTER’ inventaire (si vous désirez acheter une fiole ou 
une clé, il vous suffit alors d'appuyer sur la touche 


COPY”). 


Chaque fiole vous rapporte une vie ; quant aux clés, elles 
ne peuvent ouvrir que sept portes chacune. 
Chaque combat rapporte 100 écus. 


QUELQUES DETAILS TECHNIQUES 


100-350 
360-430 
440-680 
690-1110 
1120-1410 


1420-1600 
1610-1650 
1660-1750 
1760-1780 
1790-1860 
1870-2190 
2200-2370 
2380-2490 
2500-2580 
2590-2710 
2720-2840 


Initialisation et redéfinition 

Page de présentation 

Fichier du manoir 

Dessin de la salle 

Choix du contenu de la salle (vide, mons- 
tre, clé, anneau ou autre trésor) 
Scrutation clavier 

Déplacement du chevalier 

Combat entre le chevalier et un monstre 
Affichage de l’objet (trésor, fiole ou clé) 
Affichage ou déplacement du monstre 
Ouverture d’une porte 

Inventaire 

Achat d'une fiole ou d’une clé 
Ramassage d’un objet 

Gloire 

Mort 


sur DES VARIABLES 


XX 
YY 
CA1$ 
CA2$ 
NbCles 
ValCle 


ECUS 
VIES 


CASE(15,15) 
CONTENU (15,15) 
X1 


Y1 
X2 


Y2 


X3 
Y3 
T 
(a 
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C1$ 
C2$ 


1$ 

XD 

YD 
ANNEAU(1) 
ANNEAU(2) 
ANNEAU(3) 


Coordonnée horizontale de la salle 
Coordonnée verticale de la salle 
Coordonnée horizontale du chevalier 
Coordonnée verticale du chevalier 
Caractère du buste du chevalier 
Caractère des jambes du chevalier 
Nombre de clés 

Nombre de portes qu’une clé peut 
encore ouvrir 

Richesse 

Nombre de vies restant 

Type de salle 

Type de rencontre 

Coordonnée horizontale du monstre 
Coordonnée verticale du monstre 
Coordonnée horizontale de son point 
d'arrivée 

Coordonnée verticale de son point 
d'arrivée 

Coordonnée horizontale de l'objet 
Coordonnée verticale de l’objet 
Type de trésor 

Encre du haut du trésor ou du 
monstre 

Entre du bas du trésor ou du 
monstre 

Caractère du haut du trésor ou du 
monstre 

Caractère du bas du trésor ou du 
monstre 

Touche frappée au clavier 
Déplacement horizontal du chevalier 
Déplacement vertical du chevalier 
Anneau bleu 

Anneau rouge 

Anneau vert 


10 ‘ KÉLEEELEEEEEEX 

20 } LE * 

30 ‘ Ÿ MANOIR *# 

40 L DE { 

90 * ROCHEBRURE * 

60 Détéseseeseses 

70 ‘ 

80 par S,L & P Kerloch 
90 ‘ 


100 ZY=5:XX=18:YY=11:X=15:Y=11:CA1$=CHR$ (213) :CA2$=CHR$ (214) :NbC 
les=0:ValCle=7:ECUS=0:VIES=3:22=0 

110 SYMBOL AFTER 212 

120 SYMBOL 213,848,85C,&5C,&5C,&5C, 848, SC, &SE 

130 SYMEOL 214,8FD,&SD,81D,814,824,845,822,&10 

140 SYMBOL 215,410,43À,&3A,E3A,&3A,&12,L3A,LTA 

150 SYMBOL 216,8BF,&BA,8B8,828,824,EA2,844 ,&B 

160 SYMBOL 217,844,854,87C,&55,LED,239,&12,87C 

170 SYMBOL 218,8B8,8R8,8B9,&ED,82A,828,828,86C 

180 SYMBOL 219,418,81B,L18,&18,RO5A,LDB, RFF, &FF 

190 SYMBOL 220,87E,83C,82C,818,8&18,818,8C,&È 

200 SYMBOL 221,844,892,8BA,&54,828,&BA,&92,&BA 

210 SYMBOL 222,87C,498,810,838,828,828,828 ,&6C 

220 SYMBOL 223,8BA,854,R6C,838,&10,854,RFE , BA 

230 SYMBOL 224,8BA,892,838,87C,87TC,&6C, 828, REC 

240 SYHBOL 225,80,80,810,838,RC, RC, EC, EC, 

250 SYMBOL 226,88,&10,&10,&10,810,838,87D,8FE 

260 SYMBOL 227,81C,&14,&1C,&B,88,418,88,L18 

270 SYMBOL 226,410,838,810,838,R6C, RAA, RAA, ETC 

280 SYMBOL 229,REE,LEE,LEE, 0 ,EBB,EBB,LBB,&O 

290 SYMBOL 230,810,838,87C,854,87C,828,838,&10 

300 SYMBOL 231,839, 7D,&BB,RB9,4B9,829,829, LED 

310 SYMEOL 232,80,80,80,80,80,410,838,838 

320 SYMBOL 233,410,810,410,838,87C,87C,87C,&38 

330 SYMEOL 234,8438,86C,&44,&44,&6C, 838,80 ,&0 

340 SYMBOL 235,80,&14,841,818,8BD,&3C,&7E,&FF 

350 SYMBOL 236,87E,8FE,&3D,8RC,&19,840,814,80 

360 MODE O:BORDER 2:INK 1,18,6:INK 2,15:INK 3,6,18:SPEED INK 20, 
20: INK 0,0:PAPER OPEN ! 

370 LOCATE 1,7:PEN 1:PRINT" Le":PEN 2:PRINT" “25 
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TRING#(2,CHR$ (208) ) : PRINT 


380 PEN 3:PRINT" MANOIR" :PEN 2:PRINT" “:STRINGS(6,CH 
R$(208)) PRINT 
390 PEN { PRINT" de":PEN 2:PRINT" “!STRING$(2,CH 


R$(208)}:PRINT 

400 PEN 3:PRINT" ROCHEBRUNE" : PEN 2:PRINT" ":STRINGS (10,0 
HR$(208)) 

410 FOR GW=1 TO 4O0G:NEXT GW 

420 MODE O:SPEED INK 15,15:BORDER 0 

430 INK 0,0:INK 1,2:INK 2,14:INK 3,26:INK 4,6:INK 5,15:INK 6,18; 
INK 7,24:INK 8,25,26:INK 9,14: INK 10,6,15 

440 DIM CASEiIS,15) 

450 DIM CONTENU(15,15) 

460 DATA 5,3,8,3,8,3,8,0,8,3,8,3,7,3,2,2,13,3,4,0,5,3,8,3,7,0,2, 
1,7,3 

470 DATA 9,0,7,1,9,0,13,3,8,3,7,3,9,2,7,3,9,3,7,0,9,3,7,3,6,2,5, 


3,14,0 

480 DATA 5,3,14,3,6,3,9,3,4,2,16,0,8,3,11,3,8,3,11,0,8,0,10,1,9, 
3,10,3,6,3 

490 DATA 6,2,6,3,9,1,1,0,5,3,10,0,1,3,6,3,2,1,10,3,5,0,8,9,8,3,1 
3,0,10,3 

500 DATA 16,3,15,3,0,0,14,3,6,3,5,2,11,1,15,1,8,2,4,7,16,3,8,3,4 
1219,9,731 , 

510 DATA 16,3,8,3,7,0,3,2,3,0,6,3,6,0,5,0,13,3,8,3,10,0,5,3,7,3, 
12,5,6,3 

520 DATA 6,0,1,1,16,1,8,3,8,2,14,3,9,3,14,0,3,1,2,2,7,3,3,1,16,3 
,1,2,6,3 

590 DATA 9,3,10,3,6,3,2,1,7,3,9,3,8,3,14,0,5,0,8,3,11,3,19,1,10, 
0,9,3,14,3 

540 DATA 5,0,8,4,15,0,13,3,15,3,7,3,1,2,9,3,15,1,8,0,14,3,9,3,13 
1d:4:2,b,3 

S90 DATA 6,3,2,1,8,1,10,3,5,0,10,0,6,0,2,1,13,3,4,1,9,0,7,3,9,0, 
13,3,10,1 

560 DATA 9,3,13,1,8,3,13,0,15,0,6,0,11,3,13,3,15,3,8,0,8,3,14,3, 
d12:193:d,4,0 

970 DATA 5,0,15,3,8,0,10,3,5,1,8,3,10,0,16,3,8,0,4,1,5,3,10,0,9, 
3,13,3,7,0 

560 DATA 6,4,5,3,8,0,7,3,9,3,8,3,8,3,10,0,5,3,8,3,10,1,2,1,8,3,1 
0,0,6,3 


ü90 DATA 6,3,3,1,1,2,9,0,8,9,7,3,5,1,8,4,10,2,2,2,13,0,8,2,8,3,7 
,0,6,3 

EQQ DATA 9,3,8,3,15,3,8,3,8,3,15,3,15,0,8,3,8,0,4,6,9,3,8,3,4,1, 
0 3 1n 

610 RESTORE 460 

629 FOR A=1 TO 15 

630 FOR B=1 TO 15 

640 READ CASE(B,A) 

b3û READ CONTENU(B,A) 

659 NEXT 

570 NEXT À 

680 CLS 

490 X1=0:Y1=0:X2=0:Y2=0:X3=0:Y3=0:C1$="":C2$="" 

700 PAPER 4:PEN 2 

710 FOR A=1 TO 19 

720 LOCATE A,1:PRINT CHR$(229) 

730 LOCATE A,2:PRINT CHR$(229) 

740 LOCATE A,21:PRINT CHR$(229) 

750 LOCATE À,22:PRINT CHR$(229) 

760 NEXT À 

770 FOR Az=1 TO 22 

780 LOCATE 1,A:PRINT CHR$(229) 

790 LOCATE 19,A:PRINT CHR$(229) 

B0G NEXT À 

810 PAPER O:IF X=15 AND Y=11 THEN PEN 6:LOCATE 19,11:PRINT CHR${ 
1993: LOCATE 19,12:PRINT CHR$(199):PEN 5 ELSE PEN 5 

820 ON CACE(X,Y) COSUR 849,860,870,880,890,900,910,920,930,940,9 
50,850,960,970,980,990 

830 GOTO 1120 

840 GOSUB 1030:RETURN 

850 RETURN 

869 COSUB 1090:RETURN 

870 GCSUB 1000:RETURN 

860 GOSUB 1060 :RETURN 

690 COSUE 1030:GOSUB 1090 :RETURN 

509 GOSUE 1000:GOSUB 1030 :RETURN 

910 GCOSUB 1930:GOSUB 1060: RETURN 

920 COEUR 1060:GOSUB 1090 :RETURN 

930 COSUB 1000:GOSUB 1090 :RETURN 


940 GOEUB 1090:COSUB 1060 :RETURN 

550 COSUR 10G0:COSUB 1030:GOSUB 1060 :GCOSUB 1090:RETURN 

960 GOSUB 1030:GOSUB 1060:GOSUB 1090 :RETURN 

970 GOSUB 1000:COSUB 1030:GOSUB 1060 :RETURN 

930 GOSUB 1000:GOSUE 1040:COSUB 1090 :RETURN 

930 CCSUE 1000:GOSUB 1030:COSUB 1090 :RETURN 

1600 LOCATE 10,1:PRINT CHR$(210) 

1010 LOCATE 10,2:PRINT " 

1920 RETURN 

1030 LOCATE 10,22:PRINT CHR$(208) 

1040 LOCATE 19,21:PRINT * ” 

1650 RETURN 

ideG LOCATE {,ii:PRINT CHR$(149) 

1570 LOCATE !,12:PRINT CHR$(149) 

CEC RETURN 

1990 LOCATE 19,11:PRINT CHR$i149) 

1109 LOCATE 19,12:PRINT CHR$(149) 

1110 RETURN 

1120 ON CONTENUIX,Y) GOSUR 1140,1170,1250,1170,1370,1170,1170 
1130 GOTO 1420 

1140 A=INT(RND(1)#2) 

11950 IF A=0 THEN 11=0:12=7:C1$=CHR$ (32) :C24=CHR$ (228) :T=1 
1180 IF A=! THEN 1[1=4:12=6:C1$=CHR$(232) :C24$=CHR$ (233); T=2 
1170 IF CONTENU(X,Y)=2 THEN 11=0:12=2:C1$=CHR$(32):C2$=CHR$ (227) 
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1180 IF CONTENUIX,Y)=4 THEN [1=1:12=7:C1$=CHR$ (232) :C24=CHR$(234 


1190 IF CONTENU(X,Y}=6 THEN 11=4:12=7:Ci$=CHR$(232) :C2$=CHR$ (234 
}'T=5 

1200 IF CONTENU(X,Y)=7 THEN 11=6:12=7:C1$=CHR$ (232) :C2$=CHR$ (234 
}:T=b 

1210 X3=INT(RND(1)#15)+3 

1220 Y3=INTIRND(1)#7)+#1 

1230 Y3=(73#2+3 

1240 RETURN 

1250 ASS INT(RNDI1)#6)+1 

1260 IF AS=1 THEN 11=2:12=11:C{$=CHR$(217) :C2$=CHR$ (218) 

1270 IF AS=2 THEN 11=3:12=11:C1$=CHR#(219):C2$=CHR$ (220) 

1280 IF AG=3 THEN 11=4:12=11:C1$=CHR$(221):C2$=CHR$ (222) 
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1290 IF AS=4 THEN 11=5:12=11:C1#=CHR$(223) :C2$=CHR$# (224) 


1300 IF AS=5 THEN 1i=6:12=11:C1$=CHR$ (225) :C2$=CHR$(226) 
1310 IF AS=6 THEN 11=8:12=9:C1$=CHR$ (230) :C2$=CHR# (231) 
1320 KI=INTIRND(1)#15)+3 

1330 YI=INTIRND(I)#7)+1:YI=(Y1K2)+#3 

1340 X2=INTIRND(1)#15)+3 

1359 YZ=INTEIRND(1)#47)+1:Y2=(Y2#2)+43 

1360 RETURN 

137 FOR AS=1 TO 6:GOSUR 1260 

1330 2Z=1:C0T0 1420 


1390 NEXT AS 
1400 11=10: ;. ne C1$=CHR$ (235) :C2$=CHR$ (236) :COSUB 1320 
i410 2 1:22=0: SPEED INK 1,2 


1420 FCR 7 70 ZY:1$=INKEYS 
1430 IF ZY=1 THEN COSUB 1790 
1440 PEN J'LOCATE XX,YY:PRINT CAI$:LOCATE XX,YY+1:PRINT CA2$ 
1450 IF 14="8" AND YY>4 AND (XXCX1 OR YY-2€>Y1) THEN YD=-2:XD- 
0:GOTO 1619 
1460 IF [4="2" AND YY<19 AND (XXCPX1 OR YY+2€>Y1) THEN YD=2:XD= 
0:GOTO 1610 
1470 IF 1$="4" AND XX}2 AND (XX-1€}X1 OR YYCY1) THEN XD=-{:YD= 
D'CAL$=CHR$ (213) :CA2$=CHR$ (214) :COTO 1610 
1480 IF 1$="6" AND AX<18 AND (XX+1€}X1 OR YYOY1) THEN. XD=1:YD= 
D'CALS=CHR# (215) :CA2$=CHR# (216) :GOTO 1610 
1490 IF 14="7" AND YY>4 AND XX>2 AND (XX-1€X1 OR YY-2CY1) THEN 
XD=-1'YD=-2:CA1#$=CHRS (213) :CA2$=CHR$ (214) :GOTO 1610 
1500 IF 14=°9" AND YY>4 AND XX€18 AND (XX+16X1 OR YY-2€}Y1) THE 
N XD=1:YD=-2:CA1$=CHR# (215) :CA2$=CHR#(218) :GOTO 1610 
1510 IF 14="1{" AND XX>2 AND YY<19 AND (XX-16X1 OR YY+20Y1) THE 
N XU=-1:YD=2:CA1$=CHR# 213) :CA2$=CHR$ (214) :GOTO 1610 
1520 IF 14="3" AND XX€18 AND YY€19 AND (XX+1€X1 OR YY+2GY1) TH 
EN YD=2:XD={:CAL$=CHR$ (215) :CA2$=CHR$ (216) :GOTO 1610 
1530 iF [4="0® AND (CORTENU(X,Y)=3 OR CONTENU(X,Y)=5) THEN 1660 
1540 IF I$="5" AND NbCies?-1 AND . Cle0 THEN 1870 
1550 IF 1$= CHRS (13) } THEN GOSUE 2 
50 IF 14="," AND XX=X3 AND Nas Ven 2500 
1570 IF CONTENU(X,Y)=1 OR CONTENU(X,Y)=2 OR CONTENU(X,Y)=4 OR CO 
NTENU(X,Y)=6 OR CONTENU(X,Y)=7 THEN GOSUB 1760 
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1igû NEXT Z 

1590 IF CONTENUIX,Y)=3 OR CONTENU(X,Y)=5 THEN COSUB 1790 

1690 GOTO 1420 

1610 LOCATE XX, YY:PRINT" ":LOCATE XX,YY+1:PRINT" * 

1520 XX=XX+XD:YY=YY+YD 

1630 PEN ! 

1640 LOCATE XX,YY:FRINT CA1$:LOCATE XX,YY+1:PRINT CA2$ 

1650 GOTO 1580 

1660 IP (X{=XX AND YI=YY-2) OR (XI=XX-1 AND YI=YY) OR (X{1=XX AND 
YI=YY+2) OR (X1=XX+1 AND YI=YY) THEN 1680 

1670 GOTO 1590 

1680 A=INTIRND(1)#2}+1 

1690 IF A=1 THEN PEN 4:LOCATE X1,Y1:PRINT CHR$(198) :LOCATE X1,Y1 
+1: PRINT CHR$(196) :CONTENU(X,Y)=0:FOR B=1 TO 200:NEXT BLOCATE X 
1,YIS PRINT" "LOCATE X1,Y1+L PRINT * ":X1=0:Y1=0:ECUS=ECUS+100 1 
F Z2=1 THEN CONTENU(X,Y)=5:G0TO 1390 ELSE GOTO 2590 

1700 VIES=VIES-: 

1710 PEN T'LOCATE XX, VY:PRINT CHR$(198) LOCATE XX,YY+{:PRINT CHR 
$(196) 

1720 IF VIES=0 THEN 2720 

1730 FOR B=1 TO 200:NEXT E 

1740 LOCATE XX, YY:FRINT " ":LOCATE XX, YY+1: PRINT " " 

1750 GOTO 1599 

1760 PEN II'LOCATE X3,Y3:FRINT Ci$ 

1770 PEN I2:LOCATE X3,Y3+1:PRINT C24 

1790 RETURN 

179G LOCATE X1,YL:PRINT" "eLOCATE X1,YI+{ PRINT" 

1800 IF X1€X2 THEN X1=X1+#1 

1610 IF A1>X2 THEN X{=X1-1 

1920 IP YI€Y2 THEN Y1=Y1+2 

1830 IF Yi?Y2 THEN Y1=Yi-2 

1840 FEN II'LOCATE X1,Y1:PRINT CI$:PEN 12:LOCATE X1,Y{+{:PRINT C 
24 

1850 IF Xi=X2 AND YI=Y2 THEN X2=INT(RNDI1)#15)+3:Y2=INT(RND(1)#7 
}+1:Y2=(Y2#2)+3 

1860 RETURN 

1870 IF XX=2 AND YY=11 THEN 1920 

1880 IF XX=18 AND YY=11 THEN 1970 

1890 IF XX=10 AND YY=3 THEN 2020 
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ue IF XX=10 AND YY=:9 THEN 2070 
19 COTO 1560 
120 IF CASEIX,Y)=4 OR CASE(X,Y)=7 OR CASEUX,YI=8 OR CASEUX,Y)=i 
D OR CASE(X,Yi=11 or CASEUX,Y)=13 OR CAGEUX,Y)=14 OR CAGEUX, Y)=1 


SOSUE 2160:GOSUE 3120 

tsk-1:XX=18 

et GOT 2110 

70 IF CASEU(X,Y)=2 OR CASE(X,Y}=5 OR CASE(X,Y)=8 OR CASE(X,Y)=9 
‘OR € CASE(X,Y)=11 OR CASEUX,Ÿ)=13 ü CASEUX,Y)=15 OR CASE(X,Y)=16 
TREN 1990 

1580 GOTO 1580 

1390 COEUR 2160:COSUR 2120 

2000 X=X+1:XX2=2 

201€ GOTO 2110 









2626 IF RUE =3 OR CASE(X,YI=6 OR CASE(X,Y)=9 OR CASE(X,Y)=1 
G OR CASE(X,Y}=11 OR CAGE(X,Y)=14 CR CASE(X,Yi=15 OR CASEUX,Y}=1 
& THEN 2049 


2039 GOTO 1580 

2640 GOSUR 2100 COSUR 2120 

2OSù Y=1-L'YY=19 

2t60 GOTO 2:10 

2070 IF CASE(X,Y}=1 OR CASE(X,Y)=5 CR CASE(X,YI=6 OR CASEIX,V}=7 
OR CASE(X,Yi=11 OR CASE(X,Y)=13 OR CASE(X,Y}=14 OR CAGEUX, Ÿ)=16 
THEN 2090 

2969 GOTO 1580 

2693 GOEUS 2160 :COSU 
2100 Y=Y+I:YY=3 

LG S FOTO £99 

2120 IF CONTENULK,Vi=i OR CONTENUIX,Y)=2 THEN LOCATE X3,Y3:PRINT 
ce "LOCATE X3,Y3+{ PRINT * 

2130 IF CONTERUIX,Y)=3 THEN LOCATE X1,YIPRINT® LOCATE Xi,Y1+ 
PRINT" * 

2140 LOCATE XX,YY:PRINT *'LOCATE XX, YY+1CFRINT" 

2:50 RETURN 

2toû VaïCle=ValCie-{ 

2170 IF Vai Ha û THEN NbCles=NbCles-1: ValCle=7 

2:89 IF NbCles=-1 THEN COSUR 22C0:1IF Qw=2000 THEN END 


[ss] 
+3 
un 
DE] 
<> 
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2190 RETURN 
2200 FOR Gu=3 TO 33 
2210 LOCATE 2,GW:PRINT* * ! 17 ESPACES 
2220 NEXT QY 
2235 PEN 4'LOCATE 5,4: PRINT'POSCESSIONS" 
: PRINT CHR$(232) 
ATE 3,8:FRINT CHA$(233)':PEN SPRINT" VIES :"IVIE 


2249 LOCATE 3, 
2230 PEN 6:LOC 


S 

2260 PEN 2:LOCATE 3,12:PRINT CHR$(227)::PEN SPRINT" CLES :'INE 
Ciesti 

2210 PEN 7:LOCATE 3,16: FRINT CHR$238)::PEN SPRINT" ECUS :"'EC 
His 

2280 IF ANNEAU(1)=1 THEN FEN 7:LOCATE 8,20:PRINT CHR$(224):PEN 1 
LOCATE 8,19:PRINT CHR$(232) 

2299 IF ANNEAU(2)=1 THEN PEN 7:LOCATE 10,Z0:PRINT CHR$(234) PEN 
4:LOCATE 10,19:PRINT CHR#(232) 

2300 IF ANNEAU(3)=1 THEN PEN 7'LOCATE 12,20:PRINT CHR$(234) PEN 
&'LOCATE 12,19:PRINT CHR$(232) 

2310 FOR Qÿ=t TO 2009 

2320 IF INKEY$=CHN$(224) THEN 2380 

2330 NEXT GW 

2330 FOR Qu=3 TO 29 

2350 LOCATE 2,GW:PRINT" “ ! {7 ESPACES 

2340 NEXT QW 

2370 RETURN 

2360 FOR Qu=3 TO 20:LOCATE 2,GK: PRINT" MT ES 
PACES 

2390 NEXT QW:FEN 4:LOCATE 7,4: PRINT'MAGASIN" 

2400 PEN L'LOCATE 3,7:PRINT"Votre bien"'ECUS 

2410 PEN 4:LOCATE 3,9:PRINT CHR$(232): PEN 6:LOCATE 3,10:FRINT CH 
R$(233)::PEN 5:PRINT" FICLE 150 (1) 

2420 PEN 2:LOCATE 3,)3:FRINT CHR$#(227)::PEN S:PRINT' CLE 100 ( 
2) 

2430 PEN 1'LOCATE 3,16: INPUT "Achat "'A$:A=VAL(AS) 

2440 IF A=1 AND ECUS)=150 THEN 2470 

2450 IF A=2 AND ECUS)=190 THEN ECUS=ECUS-100:CCTO 2490 

2460 GOTO 2330 

2470 ECUS=ECUS-150:VIES=VIES+1:GCOTO 2340 

2490 IF VaiClez0 THEN Vaièle=7 ELSE NbCles=NbClest{ 
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2490 GOTO 2340 

2500 IF T=3 THEN NiCles=NbCies+i 
2510 IF T=1 THEN ECUS=ECUS+200 
2520 IF T=2 THEN VIES=VIES+! 


2530 IF T=4 THEN ANNEAU(1)=1:ECUS=ECUS+500 

2540 IF T=5 THEN ANNEAU(2)=1 :ECUS=ECUS+500 

2550 IF T=6 THEN ANNEAU(3)=1 :ECUS=ECUS+500 

2580 CONTENU(X,Y)=C 

2579 IF ANNEAU({)=1 AND ANNEAU(2)=1 AND ANNEAU(3)=1 THEN X={4:Y= 
$:GCTC 690 

2580 GCOTO 1580 

2590 IF Z2Y=i THEN 2600 ELSE GOTO 1590 

2609 CLS:RORDER 0 

2410 INK !,24,6:C©PEED INK 5,5 

2620 PEN 1:PRINT:PRINT:PRINT" BRAVO'":PRINT:PEN 6 
2630 FRINT:FRINT" Valeureux chevalier" 

2849 PRINT'vous etes sorti vic-" 

2650 FRINT'icrieux du terrible” 

266€ PRINT:FRINT'Manoir de Rochetrune" 

2870 FRINT:PRINT" Et vous avez reuni":PRINT 

2880 PRINT'les trois anneaux de" 

2890 PRINT'ouissance :":PRINT 


2700 INK 1i,2:PEN 11:PRINT" F'CHR$(232): PEN 4 PRINT" C 
HR$(232).:BEN 6:PRINT" ":CHA$(232) 

2710 PEN T:FRINT" “:CHR#(234):" "'CHR$(234):" *'CHR#(234) 
: END 


2120 CLS:EBCRDER 0 

2730 INK !,4,1:SPEED INK 5,5 

2740 PEN 1'PRINT:FRINT:PRINT" ADIEU'":PRINT'FEN 4 
2750 PRINT:PRINT" Valeureux chevalier” 
2760 PRINT'les gonstres et les" :PRINT 
2770 PRINT'esprits du Manoir de” 

2780 PEINT'Rochebrune ont vain-"* 

2790 PRINT'eu votre courage et":PRINT 
2800 CRINT'votre temerite.":PRINT 
2319 PRINT" Vous n'avez pas°:PRINT 
2820 FRINT'trouve les anneaux" :FRINT 
2830 PRINT'de puissance :" 

2640 GCTO 2700 


SQUASH 


Je serai bref dans la description de ce programme que 
vous connaissez certainement : vous devez renvoyer la balle 
contre les murs à l’aide de votre raquette que vous maniez 
avec les flèches droite et gauche. Un très bon entraînement 
pour la précision. 


QUELQUES DETAILS TECHNIQUES 


70-140 

150-160 
170-200 
210-220 
230-260 
270-280 
290-300 
310-330 
340-360 
370-400 
410-480 
490-550 
560-670 


Initialisation 

Affichage du nombre de balles 
Test clavier 

Test de sortie de l’écran 
Affichage de la raquette 
Test de rebond 
Affichage de la balle 
Test de frappe 
Affichage du score 

Fin d’une balle 
Initialisation de l'écran 
Page de présentation 
Fin 


TABLEAU DES VARIABLES 
X  Coordonnée horizontale de la balle 
Y Coordonnée verticale de la balle 
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B Nombre de balles 

V  Coordonnée horizontale de la raquette 
1$  Scrutation clavier 

D Déplacement vertical de la balle 

C Déplacement horizontal de la balle 

SC Score 


i0 FÉFENITY 
20 FSQUASHX 
30 ‘ KYSEELEX 


aÙ ‘ par S,L & P Kerloch 


2 
25 


IOCE LINK 1 ,182INE O,CINE 2,6:INK 3,14 
140 GOSUB 410 
150 LOCATE V,24:PRINT" * 
16C LOCATE !,25.PRINT'BALLES:";B 
170 I$=INKEYS 
180 IF 14=°* THEN 240 
190 IF I$=CHK$(242) AND V0 THEN V=V-2 
290 IF IS=CHR$(243) AND V<40 THEN V=V+2 
216 IF Vél THEN V=i 
220 IF V>239 THEN V=35 
230 PEN 2 
240 LOCATE V.24:PRINT CHR$(131):CHR# (131) 
250 FEN 3 
260 LOCATE X,Y:PRINT" 
270 Y=Y+D:IF Y}23 OR Y<2 THEN D=-D'SOUND 2,400,60,15,1 
280 X=X+C:IF X}39 OR X€2 THEN C=-C:SOUND 2,3060,60,15,1 
290 PEN 3 
300 LOCATE X,Y:FRINT CHR$(231) 
310 IF X=V AND Y=23 THEN SC=SC+17:SOUND 2,200,460,15,1:D=-D 


Y=34 THEN COSUB 379 
: PRINT'ECORE=" :5C 


THEN SOUND 2,0,100,0:SOUND 2,478,60,15, 1: SOUND 
3,1: S0UND 2,219,60,15,1:SOUND 2,239,60,15,1:G0T0 560 


THEN LOCATE {,24: PRINT" 
spaces 
35}+2:Y=2 
fuit fie! 





NTIRNDI LES )+2:Y=2 
{ 





£Eÿ LOCATE 1,25: PRINT'====22==22222222222222222222222222222222" ! 
39 caracteres 

870 PEN 2 

£2£ RETURN 

490 MOSE O:INK 1,18,6: SPEED INK 25,25:PEN 1:BORLER 2 
50) LOCATE 8,10 :PRINT*EGUASH" 

GG INK 2,1S:FEN 2 

320 LOCATE 8,11:PRINT STRING$(6,CHR$(208)} 

590 FOR A=i TO 5009 

94) NERT À 

Suÿ RETURN 

ÿ NODE 0 

INK {,4,2:INK 2,24:INK 3,6:INK 4,15:BORDER 2 
PEN | 

LOCATE 8,5:PRINT'FIN" 

PEN 4 

LOCÊTE 6,6: PRINT STRING#(3,CHR#(208)) 

FEN 2 

LOCATE 2,15: FRINT'VOTRE SCORE": 

PEN 5 

PRINT SC 

hû I$=INKEYS 

IF I$=" * THEN RUN ELSE 660 


D in 


nn LD LD ea D 


D 


Cr Cr Cr OÙ re re Cr Or CA LU EN En 
3 Ce En fu EN FO ee D CO CO 1 Cr 


Les] 


LABYRINTHE 


Vous êtes égyptologue et vous allez explorer la pyramide 
de Mykérinos. Mais vous êtes perdu dans le labyrinthe et 
vous ne disposez que d’une torche pour éclairer autour de 
vous. Vous utiliserez les quatre flèches pour vous déplacer. 
En appuyant sur la touche ‘’COPY”", vous verrez le plan se 
dessiner et votre position. Mais cette opération ne se renou- 
vellera que trois fois. 

Prenez garde à ne pas vous égarer, on ne viendra pas vous 
chercher. 


QUELQUES DETAILS TECHNIQUES 


80-380 Chargement du plan et initialisation 
390-520 Affichage de l'explorateur 
520-580 Scrutation clavier 


590-640 Vous avez gagné |! 
650-680 Vous avez perdu ! 
1000-1120 Dessin du labyrinthe 
2000-2040 Page de présentation 


TABLEAU DES VARIABLES 

CASE(40,23) Labyrinthe 

X Coordonnée horizontale de l'explorateur 
Y Coordonnée verticale de l'explorateur 
ENERGIE Nombre de points d’énergie qu'il vous 
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reste 
CHANCES Nombre de fois que l’on peut obtenir le 
plan d'ensemble 


1$ Touche frappée au clavier 

0 ? ÉÉFÉETERELEX 

20 ‘ #LARYRINTHEY 

30 ‘ Dhtteettiett: 

40 ? 

où ‘ par S,L & P Kerloch 

60 ? 

70 GOSUB 2009 

80 DATA 1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1, 
1,1,1,1,1,1,1,1,1,1,1,1 

90 DATA 1,1,0,0,0,1,0,0,0,0, 0,1,0,0,0,1,0,0,0,0,0,0,0,1,0,0,0,1, 
5,0,0,0,0,0,0,0,0,0,0,1 

100 DATA 1,1,0,0#0,1,0,1,0,1,0,0,0,1,0,0,0,1,1,1,1,1,0,1,0,1,0,1 
,0,0,1,1,1,1,1,1,1,1,0,1 

110 DATA 1,0,0,1,0,0,0,1,0,0,0,1,1,1,1,1,1,1,0,0,0,1,0,0,0,1,0,1 
,0,1,1,1,1,0,0,0,1,0,0,1 

120 DATA 1,0,1,1,1,1,1,1,1,0,1,1,0,0,0,1,0,0,0,1,0,1,1,1,1,1,0,1 
:0:0,1,1,1,0,1,0,1,0,1,1 

130 DATA 1,0,1,0,0,9,0,0,1,0,1,1,0,1,0,1,0,1,0,0,0,1,0,0,0,0,0,1 
:0,0,0,0,1,0,0,0,1,0,0,1 

140 DATA 1,1,1,0,0,0,1,0,0,0,0,0,0,1,0,0,0,1,1,0,1,1,0,0,0,1,1,1 
,1,1,1,0,0,0,1,0,1,1,0,1 

150 DATA 1,0,0,0,0,0,1,1,1,1,1,1,1,1,1,1,1,1,0,0,0,1,1,0,1,1,0,0 
,0,0,1,0,1,0,1,1,1,0,0,1 

160 DATA 1,0,1,0,1,1,1,0,0,0,0,0,0,0,0,0,1,0,0,1,0,0,1,0,0,1,0,0 
:0,0,1,0,0,0,0,1,1,0,0,1 

170 DATA 1,0,1,0,0,0,0,0,1,1,1,1,1,1,1,0,1,1,0,0,0,1,1,1,0,1,1,1 
:0,1,1,1,0,1,0,1,0,0,0,1 

180 DATA 1,0,1,1,1,0,1,1,1,0,0,0,1,0,0,0,0,1,1,0,1,1,0,0,0,0,0,1 
:0,1,0,0,0,1,0,1,0,1,1,1 
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190 DATA 2,0,1,0,0,0,1,0,0,0,1,0,0,0,1,1,0,1,0,0,1,1,0,1,1,1,0,1 
:0,1,0,0,0,1,0,1,0,1,0,0 
200 DATA 1,1,1,0,1,9,1,0,1,0,1,0,1,0,1,1,0,1,0,0,9,0,0,1,0,1,0,0 
,0,1,1,0,1,1,0,1,0,1,0,1 
210 DATA 1,0,0,0,1,0,0,0,1,0,0,0,1,0,0,0,0,1,1,1,1,1,0,1,0,1,0,1 
:1,1,0,0,1,0,0,1,0,1,0,1 
220 DATA 1,0,1,0,1,1,1,1,1,1,1,1,1,1,1,0,1,1,0,0,0,1,0,0,0,0,0,1 
:0:0,0,1,1,0,1,1,0,1,0,1 
230 DATA 1,0,0,0,0,0,0,0,0,0,0,0,0,0,1,0,1,1,0,0,0,1,1,1,1,1,1,1 
:0,0,0,1,1,0,0,1,0,1,0,1 
240 DATA 1,0,1,1,1,1,0,1,1,0,1,1,1,0,1,0,1,1,0,1,1,1,1,0,0,0,1,1 
:0,1.1,1,1,1,0,1,0,0,0,1 
ZEG DATA 1,0,0,0,1,0,0,0,1,0,1,0,0,0,0,0,1,0,0,0,1,0,0,0,0,0,0,0 
:0,1,1,0,0,0,0,1,0,0,0,1 
280 DATA 1,1,1,0,1,0,1,0,1,0,1,0,1,0,1,0,1,0,1,0,1,0,1,0.0,0,1,1 
,1,1,1,0,0,1,0,1,1,1,1,1 
270 DATA 1,0,0,0,1,0,0,0,1,0,0,0,0,0,1,0,0,0,0,0,1,0,1,1,1,1,1,0 
:0,0,0,6,9,1,0,1,0,0,0,1 
280 DATA {,0,0,0,1,0,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,0,1,0,0,0,1,0 
,1:0:1,0,0,1,1,1,0,1,0,1 
290 DATA !,0,0,0,1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,1,0,0,0 
,0,0,! 0,0, 0,0,0,0,9,0,1 
360 DATA 1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1 

hllhhhtststsl,1;1 

310 INK O,0INK 1,6:INK 2,24:INK 3,1 

320 MODE ! 


330 VINDOW #0,1,40,2,25:VWINDOW #1,1,40,1,1:PAPER 3:CLS 
340 DIM CASE(40,23) 

350 COR R=1 TO 23 

353 FOR A=1 TO 40 

370 READ Mon 

386 NEXT # 

359 SOSUE “1000: PAPER 3:CLS 

£üû PEN {PAPER O:PRINT #1," ENERGIE : 
519 ENERGIE=120 

420 CHANCES =3 

430 X=2:1=12 
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LED FOR A=X-1 TO X+1 

456 FOR E=Y-i TO Y+i 

&tG IF CASE(A,B)=0 THEN PAPER 2 

470 IF CASE(A,B)={ THEN PAPER 3 

480 IF CASE(A,B)=2 THEN PAPER 2:PEN L'LOCATE À,B'PRINT CHR$(203) 


:COTO 500 
430 90 LOCATE À,B:FRINT" * 
600 NEXT BA 
516 PAPER Z'PEN C:LOCATE X,Y:PRINT CHn$249) 
520 If$=INKEYS 
530 IF I$-CHR$(240) AND CASEUK,Y-1)=0 THEN YŸ 
540 IF Ié$=CHR$(241) AND CASEUX,Y+1)=6 THEN Y 
560 IF I$=CHR$ (247) AND CASE(X-1,Y)=0 THEN X 
560 IF It=CHK$(243) AND CASE(X+1,Y}=0 THEN X GOTO 59ÿ 
E70 IF I$=CHR#(224) AND ENERGIE) 10 AND CHANCES:5 THEN SOSUR 1000 
:ENERCIE=ENERCIE-IO: PAPER 3:CHANCES=CHANCES-1'CLS:COTO 600 
580 GOTO 520 
590 FÉPER 3:CLS:ENERGIE=ENERGIE-1 
650 LOCATE #1,15,1:PRINT #{,ENERGIE 
&10 IF ENERGCIE=0 THEN CLS'FAPER O:PEN L'FRINT #1," Vou 
5 avez perdu !! “ ELSE 8650 
. ENY 1,15,-1,9: ENV 2,15,-1,6:ENV 3,15,-1,3:: SOUND 2,478,60,15 

SOUND 2,478,45,15,2: SOUND ro "COUND 2,478,40, 15,1 

cu SOUND 2,402,45,15,2:SOUND 2,426,15,15,3: SOUND 2,426, 45, 15,2: 
SOUND 2,478,15,15,3:SOÛND 2.478,45 15,2 EOUND 2,506,15,15,3:SCUN 
à 2,478,60,15,1 
640 FOR az! TG 3000: NEXT a: RUN 


=Y-1:6070 590 
=Y+1:G0T0 590 
(=X-1:6070 590 
=X#1: 


Y- 
Y+ 
Y_ 
A 
X+ 
Cr 
Lis 


659 IP X=40 AND Y=17 THEK PAPER OPEN L'PRINT #1," ° Vou 
£ avai gagne l! * ELSE 690 

SEQ ENT 1,5,-1,1,5,1,1.5,-1,1,5,1,1:SOUND 1,0,375,0:SOUND 4,0,37 
o:0 


ë76 ECUND 3 #78 120,15,0,1::SOUND 2,958,120,1 
,15,9,1: SOUND 2 2, ,358,15, 15,0,1:501 ND GE 9,90 
15,15,0,1:SOURD 2,239,120,15,0,1:SOUND 1,478 
119,120,12,0,1 

680 FOR a=1 TO 3000: NEXT 3: RUN 

#90 COTO 440 

1005 FOR B27 TO 23 


ÿ,f:E0UND 2,319,15 
15,0,1:SOUND 2,213, 
129,12,0,1:S0UND 4, 


E 
ds 
3 
| 
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019 FOR À T0 49 

520 IF CASE(A,B)= g THEN PAPER 2 

1039 IF CASE(A, B)=1 THEN PAPER 3 

1940 IF CASE{A,B)=2 THEN PAPER 2:PFEN 1:LOCATE A,B:PRINT CHR$ 1203 

}:S0TO 1070 

1050 IF A=X AND B=Y THEN 1070 

1569 LOCATE A,B:PRINT" " 

1970 NEXT A,B 

1080 FOR B=1 TO 23 

160 PCR Az! TO 40 

119 PAPER 3:LOCATE A,B:PRINT" " 

1110 NEXT À,3 

1126 RETURN 

2006 SLS:MODE O:INK 1,18,6:INK 2,15: BORDER 2:SPEED INK 20,20:FEN 
L'INK 0,0: PAPER 0 

2010 LOCATE 6,12:FRINT'LABYRINTHE":FEN 2? 

2020 FOR A=4 TO i5:LOCATE À,13:PRIAT CHR$(208):NEXT À 
2030 FOR 4=1 TO 2900:NEXT À 

3040 BORDER 0:RETURN 
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PANIC 


Cette fois-ci, vous jouerez à deux jeux en même temps. 

Du côté gauche, vous êtes dans une frêle embarcation, et 
votre mission est de rattraper les parachutistes imprudents. 
Du côté droit, vous devez recueillir dans votre seau les gout- 
tes d’eau qui coulent d’une canalisation percée. 
Au début du jeu, l'AMSTRAD vous demande le niveau de 
difficulté, il augmente tous les vingts points. Vous perdez 
des points si une goutte d'eau ou un parachutiste vous 
échappe. Gardez votre sang froid | 


QUELQUES DETAILS TECHNIQUES 


70-90 

100-190 
200-300 
310-320 


330-440 


450-500 
510-550 


560-620 
630-690 


Page de présentation 

Initialisation et redéfinition 

Décor 

Point de départ de la goutte et du 
parachutiste 

Affichage des gouttes et des parachutis- 
tes 

Scrutation clavier 

Calcul du rattrapage d’une goutte ou d’un 
parachutiste 

Calcul et affichage des points 

Fin 
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TABLEAU DES VARIABLES 
X Coordonnée horizontale du bateau 


POINT Score 

G$(50) Caractère correspondant à une goutte ou 
un parachutiste 

X(50) Coordonnée horizontale d’une goutte ou 
d'un parachutiste 

Y(50) Coordonnée verticale d’une goutte ou 
d'un parachutiste 

1(50) Couleur d’une goutte ou d’un parachu- 
tiste 

NIVEAU Niveau de difficulté 

RN Coordonnée horizontale du point de 
départ d’une goutte ou d’un parachutiste 

1$ Touche frappée au clavier 

NG Nombre de gouttes et de parachutistes 

10 ! *YLEEEE 

29 ‘ #PANICY 

29 Ltrstit: 

40 

Es par S,L & P Kerloch 

CR 

70 MODE OIRK 1,18,6:INK 2,15:SPEED INK 20,20:BORDER 2:PAPER 0.1 

NK 0,0:CALL BBD! 

96 PEN !'LOCATE 8,12:PRINT'PANIC" 

50 PEN 2'LOCATE 8,13:FRINT STRING#(5,CHR#(208)) 

09 K=10:C=1:POINT=5S DIM G6(50),X(50),Y(50),1(50) 

110 FOR Z=1 TO ES Z 


f20 INPUT "NIVEAU (1-5) "NIVEAU 

130 SPEED REY 2,2 

160 SYMBCL AFTER 208 

150 SYMBOL 209,0,16, 247,247, 247,247,16,0 

160 EYMBOL 210,24,126,255,66, 36; 24,24,36 

0 SYMBOL 211,0,16, 16,56, 124,254,254,124 
2Q SYMBOL 212,0,0,0,0,195,255, 12, 6 

70 SYMBOL 213,14,14,4,236,244,228,10,17 


4) CO —1 


1 
1 
4 
à 


176 


309 HODE LINE G,0:INK 1,2:INK 2,6:INK 3,20:BORDER 0 

210 PEN 2:FRINT'NIVEAU : POINTS :" 

330 PEN 2:PAPER ! 

230 FOR !=2 TG 25:LOCATE 20,1:PRINT CHR$(207):NEXT I 

249 PEN J'PAPER 0 

259 FOR 1:21 TO 40:LOCATE 1,2:PRINT CHR$(209):NEXT I 

240 PEN Î j 

270 FOR I=! TO 19:LOCATE I,25:PRINT CHR$(196):NEXT I 

200 PEN L'PAPER 3:FOR 1=20 TO 39:LOCATE 1,25:PRINT CHR$(207) :NEX 
TI 

290 PEN 2:FAPER 0 

390 LOCATE KX,24:PRINT CHR$(212) LOCATE X+20,24:FRINT CHR$(213) 


319 RN=INT(RND(1)#39)+1:N=N+1 :NG=NG+1 

320 IF RNFIS THEN RN=RNtI:C#(G)=CHRS (211): XIGI=RN:Y(G)=3:1(G)=1 
ELGE C$(Gi=CHR#(219) :X(G)=RNIY{GI=2:1(G)=3 

339 FOR G=i TO NIVEAU 

JéG IF X(GI=6 THEN 360 

356 LOCATE KG), YiQ) PRINT " ? 


IDYT À 







n RUE 
ai 10 THEN 4 


j it ILOCATE * {G},YIG) PRINT G$(0) 
110 IF ytar 24 AND x(Q) {20 THEN W=1:G=G-1:LOCATE X(G),24: PRINT" 
FFOINT=POINT-1 :NC=NG-{:COTO 600 
426 IF YiG)=24 AND X(G)>20 THEN W=1:G=G-1:LOCATE X(Q),24:PRINT" 
“POINT=FOINT-{NC=NG-1 :COTO 600 
539 NERT G 
349 IF FOINT=C THEN 640 
450 I$=INÉEYS:PEN 2:LOCATE X,24:PRINT CHR$(212) :LOCATE X+20,24:P 
RINT CHR$(213) 
S66 IF I$£CHRS (243) AND !$CCHR$(243) THEN 510 
7G LOCATE X,24:PRINT" "LOCATE X+20,24:PRINT" 
86 IF I$=CHR${242) AND X)1 THEN X=X-1 
70 IF If=CHR$(243) AND X<19 THEN X=X+1 
205 PEN 2:LOCATE X,24:PRINT CHR$(212) LOCATE X+20,24: PRINT CHRS( 





510 FOR G=1 TO NIVEAU 
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S20 IF X(9)=0 THEN 550 
EU IF X{9)420 AND Y(G)=23 AND X{G)=X THEN POINT=POINT+1:G=G-1:N 
GENG-: :LOCATE X10),23:PRINT" “:W=1:GCTO 570 


540 IF X(G1320 AND Y(G)=23 AND X(G)=X+20 THEN POINT=POINT+I :C=G- 
LING=NG-!LOCATE X(G),23:FRINT" ":W=1:GOTO 570 

ag NEXT G 

géo W= INT(RND(1)#£) }+i 

210 PEN Z'LOCATE 29,1:PRINT FCINT 

500 IF POINT/20=INTIPOINT/20) THEN FOINT=FOINT+S:HIVEAU=NIVEAU! 
1G=L:FOR Bsf TO SOESIA)= "I KIA)2QYIA)=SOI{AIZO NEXT ANG=O'N=0 


GOTC 269 

590 FEN Z'LOCATE 9,!: a NIVEAU 

600 IF W=1 AND NG€XIVEAU THEN G=G+1:CO0TO 310 
E10 IF NG=0 THEN 3!C 

620 GOT0 0 

639 MODE O'INK 1,18,£:INK 2,15: CPEED INK 20,20:BORDER Z:PAFER ©: 
INK 0,0:GPEED KEY 20,2 

&£ÿ FEN f'LOCATE 9,10:PRINT'FIN® 

650 PEN 2:LOCATE 9,11:PRINT STRINGS(3,CHR$#(208)) 
£69 PRINT: INEUT'VOULEZ-VOUS REJQUER ":REP$ 

676 IF REPF#="0" OR REP$="o0" THEN RUN 

SEC IF REP$="N" OR REP$="n" THEN END 

899 COTO 660 
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HISTOGRAMME 


Cet utilitaire se présente sous la forme d’un sous- 
programme que vous pourrez insérer dans vos propres pro- 
grammes de gestion ou de statistiques. 

Pour cela, vous devrez modifier une partie du programme 
(lignes 10 à 60) pour remplir la fiche H(MOIS) avec les résul- 
tats provenants de votre programme. Vous pouvez aussi 
remarquer que cette routine ne comprend ni GOTO ni 
GOSUB bpour faciliter son insertion. Vous pourrez modifier 
les valeurs DISTANCE, MARGE et LARGEUR à votre gré. 


QUELQUES DETAILS TECHNIQUES 


10-60 Entrée des données (remplissage du 
fichier H(MOIS)). 

70-100 Initialisation 

110-120 Tracé de l’axe horizontal 

130 Tracé de l’axe vertical 

140-190 Graduation de l'axe vertical 


210-280 Tracé des deux faces de la barre 
290-340 Tracé du dessus de la barre 


TABLEAU DES VARIABLES 

B Indicateur de négativité 

MOIS Unité de temps (représente les jours, les 
mois ou les années) 
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DISTANCE Distance entre les barres 

MARGE Distance entre le bord gauche de l'écran 
et l’axe vertical 

LARGEUR Largeur des barres 

H(X) Tableau des données à visualiser 


20 INPUT “nombre de barres", MOIS 
30 DIM HIMOIS+{):B=1 

40 FOR À= { TO MOIS 

50 INPUT H{A) 


1 PES AXES" 
80 INK 1,2:INK 2,1:INK 3,11:MODE 1:INK 0,0:PAPER C:EORDER 0 
90 DISTANCE=30 : MARGE=5 : LARGEUR=20 

100 CLS:ORIGIN 1,200 

110 PLOT MARGE, LARGEUR/4 

120 DRAWR 640,0,1 

130 PLOT MARGE, 200:DRAUR 0,-400,1 

140 FOR C=-200 TO 200 STEP 25 

150 PLOT MARGE-2,C+LARGEUR/4, 1 

160 NEXT C . 

170 FOR C=-200 TO 200 STEP 100 

180 PLOT MARGE-4,C+LARGEUR/4,1 

190 NEXT C 


219 FOR I=1 TO MOIS 

220 IF H{I)=0 THEN H(I)=1 

230 FOR J=1 TO H{I) STEP 2XSGN(H(1)) 
240 PLOT IYDISTANCE+MARGE, J,1 

259 DRABR LARGEUR,0,1 

260 PLOT : XDISTANCE+MARGE+LARGEUR, J,2 
270 DRAWR LARGEUR/2,LARGEUR/?, 

286 NEXT J 

290 IF H{!)€0 THEN B=0 ELSE B=1 

300 FOR K=0 T0 LARGEUR/2 STEP 2 

316 PLOT IYDICTANCE+MARGE+R, T'XB+R,3 
320 DRAFR LARGEUR, D, 

230 NEXT R 

34G NEXT I 


CAMEMBERT 


Ce n’est pas d’un fromage qu'il s’agit, mais plutôt d'un 
sous-programme à insérer dans vos propres programmes de 
gestion, comme l'utilitaire précédent. Il n’y a ni GOSUB, ni 
GOTO pour faciliter son insertion. Vous pourrez modifier la 
dimension du tableau de la ligne 10, mais il ne pourra pas 
dépasser le chiffre 50. 


QUELQUES DETAILS TECHNIQUES 

10-50 Remplissage du fichier 

100-150 Initialisation des couleurs, variables et du 
mode de définition 

160-310 Traçage du camembert 

320-380 Traçage de la séparation entre les parts 


TABLEAU DES VARIABLES 
V(50) Valeur des 50 parts différentes 


r Rayon 
n Canal de couleur 
h Mode de définition 


nbpart Nombre de parts 

Valeur des parts 

Pas du cercle 

Coordonnée horizontale du cercle 
Coordonnée verticale du cercle 
Couleur de la bordure du cercle 


ES 


F< X D 
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DIX v(s0} 

INPÛT “nombre de parts:":nbpart 

FOR e={ TO nbpart 

INPUT “valeur:":v{e) 

NEXT e 
Q b=3,6:#=2{50:p=0,7:n1 
0 FOR.i=9 TO 15:READ m:INK },æ:NEX 
120 DATA 0,18,2,6,24,7,21,12,5,10,15,17,19,3,8,12 
139 INPUT “mode de definition (0/1/2)°%:h 
140 MOCE h 
150 DEG'ORIGIN 320,200 
1E9 FOR i=1 TO ntpart 
170 f=v{i} 
180 FOR i=dét TO (f+a)#b STEP p 
190 x=r#005(1) 
206 y=rt£i 
2:59 FLOT 
220 IF H=2 AND n=2 THEN n=Qke 
#30 IF h=f AND n=4 THEN n=0'k= 
240 IF F=0 AND n2fë THEN n=0:k 
250 DRAU x,y,n 
280 FLOT %,y,k 


270 NEXT : 


mes CT En CO hrs 
ve Eu ED € CD cos 





Î 
! 


! 
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FONCTION 


Ce programme, de fonctionnement simple, s'adresse 
aussi bien aux mathématiciens qu'aux lycéens. Il représente, 
sous forme graphique, l’évolution d'une fonction mathéma- 
tique. Au début, l'AMSTRAD vous demande l'intervalle 
d'étude, la précision de la courbe, la grandeur de la courbe 
horizontalement et verticalement. Il vous demande aussi si 
vous voulez effacer la courbe précédente ou la comparer 
avec la suivante. 


QUELQUES DETAILS TECHNIQUES 


10-110 Initialisation et affichage du menu 
120-170 Entrée des paramètres 
180-260 Traçage et calcul de la fonction 


270-320 Fin du traçage 
1000-1120  Traçage des axes 
2000-2070 Affichage des points de la fonction 


TABLEAU DES VARIABLES 

Intervalle minimum 

Intervalle maximum 

Précision 

Echelle horizontale 

Echelle verticale 

Coordonnée horizontale de la fonction 


XMO TX» 


Y  Coordonnée verticale de la fonction 

A$ Test clavier à la fin 

| Coordonnée horizontale du point 
Coordonnée verticale du point 


KÉXELELEEX 
XFONCTIONY 
Létotitest 


par 5,L & P Kerloch 


© ON Be CO PJ 
ss ss 


10 MODE 1! 

20 INK O,0:INK 1,9:INK 2,6:INK 3,15 
30 PRINT: PRINT" COMMANDES :" 

40 PRINT" A= ARRETER" 

90 PRINT" C= MODIFIER LA FONCTION” 
60 PRINT" R= RECOMMENCER 

70 PRINT 

80 WINDOU #1,1,40,25,25 

90 PAPER #1,0:PEN #1,3 

100 CLS #1 

110 ORIGIN 320,200 

120 INPUT #1, "intervale :"'A,R 
130 INPUT #1,"precision :":P 

140 INPUT #1,"echelle ‘F1CE 

150 INPUT #1,"effacement :":B$ 

160 PRINT#I 

170 IF B$="0" OR B$="c" THEN CLS 
180 GOSUB 1000 ’ AFF AXES 

190 X=A 

200 IF X=0 THEN X=10°-8 

210 Y=SIN(X) 

220 LOCATE 1,1:PRINT"X=":ROUND(X,2) 
230 LOCATE 32,1:PRINT"Y=":ROUND(Y,2) 
240 GOSUB 2000 ’ AFF POINT 

250 X=X+P 
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260 IF X€B THEN 200 

270 PRINT #1,"FIN" 

280 A$=INKEY$ 

290 IF Af="A" OR A$="a" THEN END 
300 IF A$=°R" OR A$="r" THEN 120 
310 IF Af="C" OR A$="c" THEN LIST 210 
320 GOTO 280 

1000 FLOT -320,-185,1 

1010 DRAWR 640,0,1 

1020 PLOT 0,199,1 

1030 DRAY 0,-185,1 

1040 PLOT -320,0,1 

1050 DKAW 640,0,1 

1060 FOR F=-180 TO 200 STEP 20 
1070 PLOT 2,F,1 

1080 NEXT 

1090 FOR G=-320 TO 320 STEP 20 
1100 PLOT G,-2,1 

1110 NEXT 

1120 RETURN 

2000 1=C+20#X 

2010 J=20XEX*Y 

2020 IF 13320 THEN 1=320 

2030 IF 1<-320 THEN 1=-320 

2040 IF 7199 THEN J=199 

2050 IF J<-184 THEN J=-184 

2060 PLOT 1,7,2 

2070 RETURN 


LES TOURS DE HANOÏ 


Il s'agit d'un casse-tête chinois. Au début du jeu, vous 
choisissez le nombre d'étages que possédera votre tour. Elle 
s’affichera en entier sur la partie gauche de l'écran. Vous 
devrez la déplacer en entier sur la partie de droite, et ceci 
étage par étage, en un minimum de coups. Les étages s’em- 
pilent du plus grand au plus petit, comme une pyramide. Une 
clochette retentit quand vous avez gagné. Bonne chance | 


QUELQUES DETAILS TECHNIQUES 
70-210 Initialisation 
220-460 Votre jeu 

470-570 Affichage des tours 
600-650 Page de présentation 


TABLEAU DES VARIABLES 


ND Nombre d'étages 

A(3,11)  Etages des tours 

N Tour 

I Etage 

NM Nombre de tentatives 

K Tour de départ et d'arrivée 
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10 ‘ LÉÉRÉLELERELELELELEE 

20 *LES TOURS DE HANOI* 

30 LÉRRÉREEELELELELELES 

40 

90 par 5,L & P Kerloch 
60 

70 GOSUB 580 


80 MODE 2:BORDER 0:INK 0,0:PAPER O:PEN 1:INK 1,15 
90 CLS:PRINT 

100 WINDOW 40,1,80,9,24 

-110 CN=1 

120 DIM A(3,11) 

130 INPUT “Nosbre d’etages ( { à 10 ) ":ND 

140 IF ND<1 OR ND>10 THEN 130 

150 CLS:WINDOW #2,1,80,25,25:PAPER #2,1:PEN #2,0 
160 FOR I=11-ND TO 10 

170 A(1,1)=I 

180 NEXT 1 

190 LOCATE #3,32,4:PRINT #3,"LES TOURS DE HANOI"- 
200 LOCATE #3,32,5:PRINT #3, Selle CHR$(208)) 
210 LOCATE #3,1,8:PRINT #3; u 2 


220 CLS #0:GOSUB 470 

230 FOR 1=11-ND TO 10 

240 IF A(3,1)C>1 THEN 270 

250 NEXT I 

260 PRINT #2,"Felicitations ! Vous avez reussi en":NM:"deplacese 
nts":ENV 1,15,-1,4:SOUND 2,50,60,15,1:END 

270 NM=NM+1 

280 INPUT #2,"De quelle tour voulez-vous oter un anneau ":K 


290 IF K&1 OR K>3 THEN 280 
300 FOR I=1 TO 10 

310 IF AÎK,1)=0 THEN 350 
220 TH=AUK,! 

232 AUX, 20 


HE 440 
THEN PRINT 42," Vous ne pouvez pas le faire ":G0 





459 A(K,10)=TH 

SEG COTO 210 

470 PCR N=! TO 3 

360 FOR 1210 TO 1i-ND STEP -{ 

490 X=N#26-75 

500 IF A(N,1)=0 THEN 549 

510 X=X+10-A(N, 1) 

520 LOCATE X,I44:PRINT CHR$ (143): 

920 FOR J=2 10 {AUN,1)#2)-1:PRINT CHR$#(143)::NEXT J'PRINT'" 
ca Las 

550 


Jd 





3€ 
sèd 


S'INK 1,16,6:INK 2,15: INK O,0:PEN {PAPER O:BORDER 2, SP 
FED INK 20,20 

565 BEN 1:LOCATE 2,12:PRINT'LES TOURS DE HANOI" 

290 PEN 2 

£0û LJCATE te " MIETRINGS(16,CHR#(208)) 

610 FOR A={ TO AOGO:NEXT À 


220 RETURN 


PUISSANCE 4 


Vous connaissez sûrement ce très célèbre jeu. Nous vous 
proposons d'y jouer, mais cette fois-ci contre votre ordina- 
teur. Au début, une grille de huit colonnes se dessine sur 
l'écran. Pour gagner, il suffit d’aligner 4 pions horizontale- 
ment ou diagonalement. Mais votre AMSTRAD fait tout 
pour vous en empêcher. Vous avez la couleur jaune. 

Encore un jeu plein de malice, qui vous donnera du fil à 
retordre. 


QUELQUES DETAILS TECHNIQUES 

10-990 Tests 

1230-1330 Affichage de la grille 

1340-1380 Affichage des points rouges et jaunes 
1390-1450 Page de présentation 
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2:° Dtottessesete: 

< RE *PUISSANCE 4* 

4! LÉHEEEEEEEEET 

5 L 

b ‘ par S,L & P Kerloch 
7 L 

10 GOSUB 1390 


20 MODE Î:INK 1,2:INK 2,6:INK 3,24:BORDER 0 

30 PRINT CHR$(22)+CHR$(1) 

40 WINDOW #2,1,40,24,25 

90 DIM B$(8,8),L(8),5(4),F(4),V(16),N(4) 
60 DATA 1,100,500,1E20,1,800,4000,1E20,1,75,900,1E18,1,450,3000, 
1E18 

70 FOR I=1 TO 16:READ V(I):NEXT I 

80 X$=CHR$(230) :0$=CHR$ (231) 

90 FOR I=1 TO 8:FOR J=1 TO 8:B$(I,7)=".":NEXT J,I 
100 FOR I=1 TO 8:L(I)=0:NEXT I 

110 GOSUB 1230 

120 GOTO 140 

130 PRINT #2,"coup iapossible !! recommence1" 
140 PRINT #2,"a vous de jouer ..." 

150 SD=2 

160 INPUT #2,M 

170 IF M>8 OR M<1 THEN 160 

180 CD=22 

190 L=L(M) 

200 IF L)7 THEN 130 

210 L(M)=L+1:L=L+{ 

220 B$(L,M)=X$ 

230 GOSUR 1340 

240 PRINT #2:PRINT #2,"a aoi de jouer .. ! 
250 P#=X$ 

260 COSUB 880 

270 FOR Z=1 TO 4 

280 IF S(Z)<4 THEN 310 

290 PEN 3:LOCATE 12,12:PRINT'"vous avez gagne !!" 
300 PRINT CHR$(22)+CHR$ (0) : END 

310 NEXT Z 

320 M9=0:V1=0 
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330 SD=1 

340 N1=1 

350 FOR U=1 TO 8 

360 L=L(U)+1 

370 IF L>8 THEN 720 

380 V=1 

390 P$=0$:4=0 

400 M=U 

410 COSUB 880 

420 FOR I=i TO 4:N(I)=0:NEXT I 
430 FOR Z=1 TO 4 

440 5=5(2) 

450 IF S-W>3 THEN 770 
460 T=S+F(2Z) 

470 IF T<4 THEN 500 

480 V=V+4 

490 N(SI=N(S)+1 

u00 NEXT Z 

910 FOR I=1 TO 4 

520 N=N(I)-1 

930 IF N=-1 THEN 560 

040 I11=8XW+4XSCN(N)+I 
990 V=V+V(I1)+NXV(BXW+I) 
960 NEXT ! 

970 IF W=1 THEN 600 

J80 W=1:P$=X$ 

390 GOTO 410 

600 L=L+1 

610 IF L>8 THEN 660 

620 GCOSUB 880 

630 FOR Z=1 TO 4 

640 IF S(2)>3 THEN V=2 
650 NEXT Z 

660 IF V<VI THEN 720 

670 IF V>V1 THEN N1=1:G0TO 700 
680 NI=N1+1 

690 IF RND(1)>1/N1 THEN 720 
700 VI=V 
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7:9 H9=U 

729 NEXT U 

730 iF M9€0 THEN 760 

740 PEN Z'LOCATE 14,12 PRINT'partie nulle":PRINT CHR$(22)+CHR$(0 


} END 

750 GOTO 1220 

769 M=M9 

770 ‘ 

780 L=L(M)+{:LIMI=L(M)+#1 
790 E$(L,M}=0$ 

800 P4=0$:COSUB 1340 

316 COSUR 829 

620 FOR £=1 TO 4 

839 IF S(2)€4 THEN 860 
B4G PEN Z'LOCATE 13,12: PRINT' J'ai gagne !'!"PRINT CHR$(22)+CHR$ 
{0} :END 

a59 GOTO 1220 

NEXT Z 

COTO {40 

G$=X$ 

ÎF B$=X$ THEN G$=04 
D2=1:D1=Ù 

£=Q 

GOSUE 100 

Di=1: D 

COSUS 1600 

0Z=0 Dis! 

GOSJE 1000 

Dz=-{ Dis 

GISUB 1000 

RETURN 


ec 


D D 


9 €D 
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= M+KR#D1 :LI=L+RY*D2 
1960 IF MSé1 OR Liéi OR M5>8 OR L1}8 THEN 1150 
1670 GC$=B$(LI,M5) 
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iG8G IF C=0 THEN 1129 

1656 IF Cé=5$ THEN K=3:COTO 1150 
1195 T=T+i 

1110 GOTO 1150 

1120 ÏF G$=P$ THEN S=£+{:COTO 1150 
1130 Cat 

1149 GOTO 1990 


1150 EXT K 
1160 IF DO THEN 1190 
1170 D=0:Di=-1 :D2=-D 
1180 GOTO 1030 

ñ c 






AFFICHAGE GRILLE 


FOR I=1 TO S'LOCATE If2411,17:PRINT I''NEXT I 

LOT 202,399: DRAW 456,399, 1:DRAUR 0.-250,1:DhA# 202,149,1:D 
G,259,1 
FOR 42222 TO 440 ETEP 32 
80 FLOT 4,399,{:DRAUR 0,-250,! 
SC NEXT Ê 
00 FOR 47373 TO 17 


ê 3 STEP -32 
2 FLOT 202,4,1:DRAY 454,8,1 
0 NEXT & 

G RETUFN 

0 : AFFICHACE PIONS 
LOCATE M#2+12,17-LOMIY2 


O IF B$iL,H}=CHn$(231) THEN FEN 2:PRINT CHR#(231) 


& 7 

19 IF B#(L,M)=CHR$(230) THEN PEN 2:PRINT CHR#(291) 

80 RETURN 

30 MODE O'INK 1,18,6: INK 2,15:INK O,0:BORDER 2:SPEED INK 20,20 
1400 PEN ! | 
1410 LOCATE 3,12: PRINT'EUISEANCE 4° 
1420 PEN 2 


1430 LOCATE S,13:FRINT STRINCS(11,CHR#(208)) 
1440 FOR A=1 TO 4000:NEXT À 
1450 RETURN 


ANNEXE 1 


Voici quelques courts programmes modulant des bruits 
différents que vous pourrez insérer dans vos propres pro- 
grammes : 


1) Laser War 


10 CEINT(RND(1)#5)+#1 

20 FCR A={ TO 31 

35 SOUND 2,0,0,15,0,0,À 
£G NEXT À 


ëG GOT0 10 
2) Soucoupe volante 


15 ENT 1,10,1,1,10,-1,1 
29 SOUND 2,400,20,15,0,1 
30 GOTO 10 

3) Police 

10 FOR A=200 TO 100 STEP -1 
20 SOUND 2,4,1,15 

30 NEXT À 

40 FOR 4=100 TO 200 

50 SOUND 2,4,1,15 

&G NEXT À 

70 GOTO 10 


4) Bourdon 


10 ENV 1,1,-15,1 
20 SOUND 2,0,1,15 


2h PATA UN 
59 GOT 6 






5) Pompiers 

3 SOUND 1,4,120,15 

j SCURD 2,249,60,15 
; SOUND 2,284,60,15 
GOTO 10 


Mn ri 


EU FI ee 


<> 


6) Ressort métallique 
19 ENT 1,10,-1,4 

20 ENV 1,15,-1, 

30 SOUND 2,478,60,15,1,1 
40 GOTO 19 


7) Tous aux abris 
5 ENV 1,1,-1,1,1,1,! 


10 FOR A=600 TO 309 STEP -1 


29 SOUND 2.4,3,15,1 
30 NEXT À 

35 FOR A=1 TO 200 

49 SOUND 2,306,2,15,1 


iQ NEXT À 


8) Ambulance 

io SOUND 3,239,20,15 
29 SOUND 2,284,20,15 
30 SOUND 2,239,20,15 
42 SOUND 2,0,29,15 
50 COTO 10 


9) Corde 


10 ENV 


20 & 
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10) Ressort élastique 
10 ENV 1,15,-1,4 

25 SOUND 2,0,80,15,1 
50 GOTO 10 


11) Tir laser 

10 FOR Az! TO 31 

20 SOUND 2,10,2,13,0,0,A 
39 NEXT À 


ni 


Q ENV 1,15,-1,12 
20 SOUND b, 4, 180, ES ER 0, 31 


13) Coup de feu 
10 ENV 1,15,-1,4 
20 SOUND 6,4,60,15,1,0,10 


14) Moteur d'avion 


16 ENV 1,1,-3,1,1,3,! 

ENV 2,1,9,1,1,-5,1 

30 SOUND 1,1000,10,15,0,1,31 
43 SOUND 2,300,10,15,0,1,1 
90 SOUND 4,3000,19,15,0,2,10 
40 GOTO 10 


r-2 
> 


15) Mitraillette 

10 ENV 1,15,-1,2 

20 SOUND 2,0,10,15,1,0,10 
39 GOTO 10 


16) Ebullition 
10 A IAT(RND(1)4400)+50 
SOUNG 2 


av L3 51,15 


39 SCTO 19 


17) Alerte 
5 ENT 1,10,1,4 

10 ENV 1,3, -1,1 

15 SOUND 2,500,4,15,1,1 
20 FOR A4=1 T0 20 

30 SOUND 2,500,4,15,1 
40 NEXT A 

50 SOUND 2,0,5,15 

80 GOTO 10 


18) Moteur 


2 End 2e; hot 1bot 1! 
30 GOTO 10 


19) Ultrason 

19 SOUND 2,6,10,15 
20 GOTO 19 

3û GOTO 10 


20) Galop 


19 ENV 1,13,-1,2 

29 SOUND 2,0,15,15,1,0,10 
36 SOUND 2,0,15,15,1,0,10 
49 SCUND 2,0,30,15,1,0,20 
30 GOTO 10 


ANNEXE 2 


Vous avez sans doute remarqué que l'AMSTRAD ne pos- 
sède pas la fonction bien pratique de dessiner un cercle. 
Maintenant, grâce à ce court programme, c'est chose faite. 


Quand A varie de O à 360°, le sinus représente la coor- 
donnée verticale du cercle, et le cosinus représente la coor- 
donnée horizontale. 


R=Rayon 
U = Coordonnée horizontale du centre 
V = Coordonnée verticale du centre 


10 DEC 

{5 FLOT U,V 

29 FOR ÀA=0 TO 1170 
30 X=RYCOS (AI +Ù 
40 Y=RXSIN(AI+V 

5ù PLOT X,Y,1 


&0 NEXT À 


100 
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— Les tours de Hanoï #7 
— Puissance 4 g1 


Annexe 1 
Différents sons et bruits à insérer dans des programmes 
personnels. 36 





Annexe 2 
Comment dessiner un cercle. 1,90 
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